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1.0 


GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
DLV11~E_ SERIAL LINE INTERFACE. THE PROGRAM AS SET INITIALLY 
DEFAULTS TO ALL OPTIONS, EXCEPT PROGRAMMABLE BAUD RATE, 
ENABLED AND A WRAP CABLE CONNECTED. THE USER CAN SELECTIVELY 
ENABLE AND DISABLE i OF THE OPTIONS BY ALTERING THE 
CONTENTS OF '$USER*. THE DIAGNOSTIC IS DESIGNED TO TEST AND 
ah FAULTS TO THE LOGIC LEVEL (NOT TO THE CHIP LEVEL). 
THIS TEST OPERATES ON UP TO SIXTEEN(16) IDENTICALLY CONFIGURED 
DLV11-E SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES: ARE: 


175610 -FIRST SERIAL LINE ADDRESS OF 16 CONSECUTIVE 
SERIAL LINE DEVICES. 


300 - VECTOR FOR FIRST OF 16 DEVICES. 


THIS PROGRAM IS DESIGNED TO RUN ON ANY PDP=11 WITH 4K OF 
MEMORY AND A DLV11-E (LSI-BUS) “ees IT CAN RUN UNDER XXDP, 
APT, AND ACT MONITORS, AND ON PROCESSORS WITH NO DWARE 
SWITCH REGISTER. A POWER FAILURE WILL CAUSE THE DIAG- 

NOSTIC TO RESTART. 


SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
ANY PDP-11 FAMILY PROCESSOR 
4K MEMORY - MINIMUM 


H315 = CABLE TURN AROUND PLUG (OR EQUIVALENT) 
MODEM CABLE - BCO1V-. OR BCOSC-x 


SOF TWARE REQUIREMENTS: 


THIS Dealt IS DESIGNED TO RUN IN ANY OF THE 


ne 
STAND ALONE 
WITH APT MONITOR 
WITH ACT MONITOR 
WITH XXDP MONITOR (CHAINABLE ) 
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1.3 RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175-003-009-02 
APT MD-11-DZZMA 

ACT AUTOCAT=11-QZAUB 
SYSMAC MD-11-DZQAC 


— 
_) 
co 


DIAGNOSTIC HIERARCHY PREREQUISITES. 

NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 
THE PROCESSOR, MEMORY, AND BUS ARE ASSUMMED 70 BE FULLY 
OPERATIONAL . 


ASSUMPTIONS. 


WN -DOOONAURWNOW”W 


THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR HAS INITIALIZED 
LOCATION "SUSWR' AND 'S$DEVM' TO THE PROPER VALUES. 
THE (H) JUMPER MUST BE REMOVED FROM ALL DLV11-E'S UNDER TEST. 


aS ss ss SF 9 SS SS Sh is ss ss SS SS os ts ts SI 


— 
SS BWWANWNWWWWnoponononononononow > 


OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 
°F Saati PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 


‘THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
SWITCH 8 IN THE SWITCH REGISTER AND THE TEST NUMBER (IN OCTAL) 
IN THE LOWER BYTE. (NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
UNE ARE EXECUTED WITHOUT ITERATIONS.) 


SPECIAL ENVIRONMENTS. 
THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 


UDER APT,ACT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 





F 
MAINDEC-27-CVDVA-B8 1 30A(1052) 23-AUG=78 15:14 PAGE 7 
CVDVAC .P11 23-AUG-78 1 


e.3 OPERATIONAL SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A_ CPU WITHOUT A_ SWITCH 
REGISTER _THEN A SOFTWARE SWITCH REGISTER IS USED WHICH 
ALLOWS THE USER THE SAME SWITCH OPTIONS 

HARDWARE SWITCH REGISTER. 

REGISTER DOES NOT EXIST OR_IF ONE DOES AND IT CONTAINS 
ALL. ONES (177777) THEN THE SOFTWARE SWITCH REGISTER 
(LOC. 176) IS USED. 


dot ad 
o 
ial 


ALAS IHVSARATISISEIE 


CONTROL : 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE 
SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
ACCOMPLISHED BY DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER 
onthe INTO LOC. 176 AT SELECTED POINTS WITHIN THE 


2) THE MACHINE WILL THEN TYPE:' SWR=XXXXXX NEW=" (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘NEW=" HAS BEEN TYPED i THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A__<CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 6 
gd ARE TYPED THE LAST 6 WILL BE USED. IF A <CR> 
IS_THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


IF A CONTROL U <*U> IS_DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (7?) WILL BE TYPED 
FOLLOWED BY A CARRAGE RETURN AND A LINE FEED 

THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT.) 


DYNAMIC SWITCH REGISTER 


a Ss oF SS Ss ss SS SS SS 


SSELRAK 


- HALT ON ERROR 


- LOOP_ON TEST | 
- INHIBIT ERROR TYPEOUTS 

- (UNUSE 

- INHIBIT ITERATIONS 

- BELL ON ERROR 

- LOOP ON ERROR . 

- LOOP ON TEST IN SWR<7:0> 

- TEST NUMBER TO LOOP ON (USED WITH BIT 8) 


ws nb nih ai ah aon 
OWOO—NWEWN 


N 
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2.4 PROGRAM OPTIONS. 


THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE DLV11-E'S. IT 
REQUIRES THE ADDRESS OF THE FIRST RCSR (STORED AT tee bi ) AND 
ITS INTERRUPT VECTOR (STORED AT '$VECT1"); AND WILL BE ABLE 
TO ADDRESS ANY DLV11-E STARTING AT THE SPECIFIED BASE ADDRESS 
UP TO He. CONSECUTIVE red ot 
EXAMPLE $BASE: 175610 
$VECT1: 300 


THE PROGRAM WILL BE ABLE TO TEST ANY DLV11-E WITHIN THE 
ADDRESS RANGE 175610 --> 176000 


$BASE AND $VECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY. 
THE PROGRAM ASSOCIATES UNIT NUMBERS AS FOLLOWS: (NUMBERS IN 
PARENTHESIS ARE OCTAL) 
UNIT#O -- BASE ADDRESS STORED AT ‘$BASE' 
ASSOCIATED BASE VECTOR STORED AT ‘$VECT1' 
UNIT#1 == BASE ADDRESS + (10) 
: BASE VECTOR + (10) 


; UP TO 


UNITA15 == BASE ADDRESS + (170) 
BASE VECTOR + (170) 


LOCATION '$DEVM’ IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE PRESENT AND WILL BE TESTED. 


BIT 1 BIT 9 


A BIT MAP CAN BE ENTERED AT '‘S$DEVM' PRIOR TO STARTING THE 
PROGRAM. 


EXAMPLE : 
75610 


$BASE: 1 
SVECTOR: 300 
$DEVM: pk: 
THE PROGRAM WILL TEST- 
UNIT#O 175610 


UNIT#1 175620 
UNITA#3 175640 
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OPTIONS 


LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE 
mation WORD MUST CONFORM TO THE ACTUAL BOARD 


THE DEFAULT VALUE OF $UsWR IS AS FOLLOWS: 
BIT POSITION DEF INITION VALUE 
#OF DATA BITS 


PARITY ENABLED 
EVEN ODD PARITY 
COMMON SPEED 


PR £ BAUD RATE 
BAUD RATE OFFSET 

(SEE FOLLOWING NOTE) 

BREAK GENERATION ENABLED 
CABLE TERMINATED (H315) 
(-FR) AND (-FD) JUMPERS IN 
(NOT DEF INED) 


t 
anil 
— 


—-—]--=3 = OWNAWMRO 


WE WM 


NOTE 
THIS DIAGNOSTIC DOES NOT TEST THE PARITY LOGIC. 


WHEN THE PROGRAMABLE BAUD RATE OPTION IS 
ENABLED THE PROGRAMABLE BAUD RATE TEST 
WILL EXIT WITH THE BAUD RATE SET TO_ THE 
SELECTED VALUE. TO CHANGE THE DEFAULT 
VALUE OF 110 BAUD REPLACE BITS <11:8> 
WITH THE OFFSET INDICATED IN THE TABLE 
AT THE END OF THE PBR TEST. 


DLV11-E INDIVIDUAL TEST REQUIREMENTS 
TESTS NOT EXETOTED ~~ IF BIT = 


APT TEST (BIT 1 OF $ENV) “TT5. 737" Sree onircaat T 
PROGAMMABLE BAUD RATE (BIT 7 OF $USWR) 132 1 
BREAK GENERATION CIRCUIT (BIT 12 OF $USWR) 0 
CABLE TERMINATED (BIT 13 OF $USWR) Tee! 126. 117,720,721 1 

123. T23.PARTS OF 134, 1 


136 
(-FR) & (-FD) JUMPERS IN (BIT 14 OF $USWR) 15,16,116,1T17,T20,T22, - 1 


123 


ALL OTHER TESTS wii. RUN REGARDLESS OF ANY BIT SETTINGS. 


tat ae pa ee pe per fe free eed ta fy 


PRINS a el ak ad ak ed ak ed ed od 
MHD OOWNAW EWR 00 N 
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° | EXECUTION TIMES. 


EXECUTION TIMES ARE FOR AN LSI=-11 PROCESSOR WITH ALL A fae 
ENABLED ON THE DLV11-E (EXECPT FOR PROGRAMMABLE BAUD RATE), 


110 BAUD. 


FIRST PASS= 90 SECONDS 
ADDITIONAL PASSES 95 SECONDS 
ADDITIONAL DEVICES 95 SECONDS 


THE TEST TIME IS teed RATE DEPENDANT; HIGHER BAUD GIVES 
SHORTER PASS TIMES 
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3.0 


3.1 


ERROR INFORMATION. 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4-K OF MEMORY THE 
iy re me IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 


TESTA , ERROR# »PC=_____, ADDRESS= 
WHERE ALL VALUES TYPED ARE OCTAL . 

THE ADDRESS AND VECTOR REFER TO THE FAILING DLV11-€. 
FOR FURTHER 1 PORMATION THE LISTING MUST. ‘GE 


CONSULTED. 
BITS 15,13, 10 AND 9 OF THE SWITCH REGISTER CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 = CAUSES THE PROGRAM TO HALT IN THE ERROR 
ROUTINE. CONTINUEING THE PROGRAM CAUSES IT TO 
PROCEED. 

BIT 13 = DiSABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 - CAUSES THE BELL TO RING ON ERROR. 


BIT 9 = CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
ERROR HALTS. 
THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS_ EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 
PERFORMANCE AND PROGRESS REPORTS. 


PERFORMANCE REPORTS. 


AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL BE TYPED: 
CSRg , VECTOR: ,ERRORS : 


WHERE . act — IS THE DEVICE CSR UNDER TEST 
VE * IS THE ASSOCIATED VECTOR 
AND “ERRORS :~ ~' IS THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PASS. 


NOTE 
THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS, 
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Teer ALL DEVICES HAVE BEEN EXERCISED AN END PASS STATEMENT IS 
“"ENDPASS# 
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5.0 DEVICE INFORMATION TABLES. 


”s 6 WwW wert ww 9 8 7 6 5 4 3 2 1 0 
AAAS IOIISIOIOISIOIOIOI IOI ISI ISI III OTST ITT ITT TTT TT TT TT TTT TTT ITE TI TOT TI OTT TS I TEE 
RCSR!DATA!RING!CLR !CAR !RCVRIREC ! f 'RCVR!RCVR!DATA! 'SEC_!REQ !DTR ! : 
!INT ! 'SEND!DET !ACT !REC ! : 'DONE'IE ‘IE ! 'XMIT! SEND! : : 
BECO OISISIOIOISIIIOIDIOIOISIOIOISISIIOIIOISIOIOIOI IOI IOI IOI ITI TOT ITT TOTTI TTI TTT TO OT I TI TI TOT TE 
RBUF!ERRO!OR !FR !P_ ! : : : : RECEIVED DATA BUFFER : 
'R  !'ERR !ERR !ERR ! : : ; : ; 
ete t rete e teria tiie iii ti iii tt itiiiiiitistittittistitiiitiiii iti iti itt itt) 
TCSR! PROGRAMMABLE BAUD !PBR ! : : 'XMIT!XMIT! : : !MAIN! !BREA! 
! RATE SELECT 'ENAB! : ; ey cce Cf : 3 i? 364 im 4% 
FOI OIOI ICICI IOI ICICI IOI I IOI IIT IIIT IT ITT TR TTA SAI SISIISAIIISIAIISI II ISAS IAN IN ASAI AIAN 


TBUF ! : ; : : : : -! TRANSMITTER DATA BUFFER f 
i i i i i i i i i 
FORO ICICI III SOIT AOI TAA IAA AISSSI IISA IISISIII III IIIS AAI IIA IIISIIS IIIA AISI INIA A A HIM 


NOTE 


BLANK BOXES INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 
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6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


THIS TEST VERIFIES THAT THE ADDRESS AS PLACED IN _ THE 
HARDWARE P=-TABLE TO B ORRECT AND THE DLV11-E 
RESPONDS TO THAT ADDRESS SPACE. 


THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE BITS 


TEST é BREAK - TCSRO SET, CLEAR, RESET 


NOTE 
RESET DOES NOT CLEAR THIS BIT. WE CANNOT TEST 
FOR AN INITIAL CONDITION AS THIS BIT IS 


UNDEFINED UPON POWER UP AND INIT DOESN'T 
AFFECT IT. 


6 REQSEND - RCSR2 SET, CLEAR, RESET 


THIS TEST ASSUMES THAT JUMPER FR IS IN, 


7 SECXMIT - RCSR3 SET, CLEAR, RESET 


10 DATAIE - RCSRS SET, CLEAR, RESET 


11 RCVRIE = RCSR6 SET, CLEAR, RESET 
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THE FOLLOWING 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
READ ONLY BITS. 


TEST 12 RCVRDONE - RCSR 7 = IS CLEARED BY INIT 


TEST 14 DATAINT = RCSR 15 = IS CLEARED BY INIT. 


TEST 15 RCVRACT ~ RCSR 11 = 15 CLEARED BY INIT 


THE FOLLOWING 4 TESTS VERIFY THAT THE EIA SIGNALS CAN BE 
TRANSMITTED AND RECEIVED THROUGH THE CABLE. 


TEST 16 CARDET SETS AND CLEARS AS DTR SETS AND CLEARS 


DATAINT IS CLEARED AFTER READING RCSR 
NOTE 
pts TIED TG BOTH CARDET AND CLRSEND BY THE 
H ° 
TEST 23 DATAINT SETS WHEN RING SETS AND THAT DATAINT 


DOES NOT SET WHEN RING CLEARS 


TEST 24 DATAINT SETS WHEN SECREC CHANGES STATE 


SEQ 0014 
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TEST 25 XMIT RDY = TCSR 7 = CLEARS WHEN TBUF IS LOADED 
WITH A_ CHARACTER “S THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 

TEST 26 OUTPUTTING A CHAR FROM TRUF (WITH MAINT SET) 
RESULTS IN RCVRDONE SETTING WITHIN’ A 


REASONABLE AMOUNT OF TIME AND THAT RESET 
CLEARS THE BIT. 


TEST 27 RCVRDONE IS CLEARED BY READING RBUF 


TEST 30 RCVRACT - RCSR 11 = SETS WHEN A START BIT IS 
+ ia AND CLEARS WHEN RCVRDONE - RCSR 7 - 


TEST 31 OVERRUN BIT - RBUF 14 


AVAILABLE A COMPARISON WILL BE MADE TO SEE IF 
NEW TIME IS LESS THAN PREVIOUS. 
TEST 33 TRANSMITTER INTERRUPT LOGIC TEST 
LOGICALLLY THIS IS 4 SEPARATE TESTS 
A) DOES eit? are INTERRUPT LOGIC WORK 
B) AT PRIORITY OF 0 
C) AND ONLY ONCE 
D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
TEST 34 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC, BOTH 
DATASET AND CHARACTER MODES. 
35 TEST ACTUAL DATA TRANSFERED NON-JNTERRUPT 


MAINTENANCE BIT SET 
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TEST 36 TEST DATA THROUGH CABLE 


FULL DATA TRANSFER WITH INTERRUPTS AND MAINTENANCE 
MODE. 


TEST BREAK GENERATION LOGIC TRANSMIT KNOWN CHAR 
WITH BREAK SET AND COMPARE RECEIVED WITH 0. 


NOT A TEST = SEND BACK TO LOOP 


NOTE 


FOR ALL OF THE FOLLOWING ROUTINES THE USE 
OF (R5)_ IS PART OF THE LINKAGE MECHANISM 
BETWEEN THE CALLER AND THE CALLED. 


ROUTINE: TIMER 


THIS ROUTINE IS USED TO TEST THE STATUS OF 
INPUTS ANY BIT IN ANY REGISTER. 
ITS2 


HOWL ONG THE MAXIMUM AMOUNT OF TIME TO 
SPEND IN THIS ROUTINE. 

WH] CHBIT A MASK WITH THE BIT(S) SET THAT 
ARE TO BE CHECKED 

REG A POINTER TO THE REGISTER TO BE 
CHECKED 

SETCLR THE DESIRED RESULTS -- EITHER SET 
OR CLEAR 


THE *C* BIT IS SET TO INDICATE AN ERROR BUT IT 
IS TESTED BY THE IF.ERROR STATEMENT. 
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ROUTINE :DATLNG 
THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 
INPUT: NOTHING IS PASSED TO THIS ROUT INE BUT GLOBAL 
INFORMATION IS ASSUMED TO EXIST 
$USWR=- THE WORD FOR SOFTWARE PARAME TERS 
DATA=~ A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 
QUTPUT=--- 


MASK-~ A MASK OF BINARY ZEROS RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN $USWR WORD. 


ROUT INE : WAIT 
— 


FIED 
p INCREMEN TING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MILLI SEC. 


SERVICE ROUTINE: INTSRV 
THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


"INTFLAG' EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


ROUTINE :CYCLE 


THIS ROUTINE CAUSES ADRS TO POINT TO THE 

ADDRESS OF DLV11-E UNDER TEST, ADRS +2 TO 

POINT TO THE VECTOR OF THE DLV11-E UNDER TEST. 

ul os TRACK OF THE CURRENT DEVICE AND BIT 
K . 
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a 

TITLE MAINDEC-ZZ-CVDVA-B 
>*COPYRIGHT (C) 1977 
:*DIGITAL EQUIPMENT CORP. 
; sMAYNARD , MASS. 01754 


: #PROGRAM BY ODES CHOATE 


“ STHIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


* 
- SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH 


te 

‘hed HALT ON ERROR 

it 1 LOOP ON TEST 

“eg INHIBIT ERROR TYPEOUTS 
8 INHIBIT ea 

; BELL ON ERR 

‘be LOOP ON ERR OR 

;* LOOP ON TEST IN SWR<7:0> 


-SBTTL BASIC DEFINITIONS 


cia. he OF THE STACK POINTER *** 1100 *** 
-EQUIV EMT,ERROR BASIC DEFINITION OF ERROR CALL 
“EQUIV IOT; SCOPE ‘ TBASIC DEFINITION OF SCOPE CALL 


ene DEFINITIONS 
HT :;CODE FOR HORIZONTAL TAB 
ae FOR LINE FEED 
; CODE 4 CARRIAGE RETURN 
000200 0 ;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 : PROCESSOR STATUS WORD 


177774 +3 STACK LIMIT REGISTER 

177772 ;PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 1 ;;HARDWARE SWITCH REGISTER 

177570 - 177570 ; HARDWARE DISPLAY REGISTER 


; *GENERAL PURPOSE REGISTER DEF INITIONS 
RO= 20 NERAL REGIST 


R1= 

R2= 

R3= 

R4= 

R5= 

R6= 

R7= : 

SP= :3STACK POINTER 
PC= PROGRAM COUNTER 


s*PRIORITY LEVEL CDF INITIONS 
000000 PRO= 0 > PRIORITY LEVEL O 


. 
’ 
. 
° 
° 
° 


s 
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PR1= 7;PRIORITY LEVEL 
PR2= . 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 


» 


° SwO1, Sw! 
-EQUIV SW00,SWO 


:*DATA BIT DEFINITIONS (BITOO TO BiT15) 
100000 = 100000 

040000 

20000 


0 
010000 
004000 
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BIT06,B1T6 


; *BASIC ‘'CPU'’ TRAP ane ADDRESSES 
000004 TIME OUT AND OTHER ERRORS 
: SRESERVED AND ILLEGAL INSTRUCTIONS 


ae 


TRACE TRAP 
BREAKPOINT TRAP (BPT) 
ff tal TRAP (IOT) **SCOPE** 
SEM ATC AIL 
s EMULATOR TRAP (EMT) **ERROR** 
RAP** TRAP 


SITTy KEYBOARD VECTOR 
6 3: TTY PRINTER VECTOR 
P1ROVEC= 240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


R4 
175610 DLADDR= 175610 
3_THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
177777 SET= -1 
000000 CLR= 0 


FDIS IIISISISIOIOISIOIOIOISI DOI OI I IIIT OITA tr 
; RCSR REGISTER BIT NAMES 
FOI OIC OIRO TTI ITT TTT TOTTI AA SAIS ASAIN AA AAA 

100000 DATAINT= 1 ; DATASET INTERRUPT 
040000 RING= ; RINGING SIGNAL INDICATOR 
020000 CLRSEND= ; CLEAR TO SEND FROM DATASET 
010000 CARDE T= ; CARRIER DETECT 
004000 ; RECEIVER ACTIVE INDICATOR 
002000 ; SECONDARY RECEIVE 


000200 ; RECEIVER DONE 
000100 ; RECEIVER INTERRUPT ENABLE 
000040 ; DATASET INTERRUPT ENABLE 


000010 ; SECONDARY TRANSMIT DATA 
000004 = ; REQUEST TO SEND 
000002 D ; DATA TERMINAL READY 
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JDO IIIS IOIIIDIDISIIOIDISIOIOIIISIOIIIOIOIIOIOIOIOIOIOIOII IIT TT TTT TTT I TTT TTI 
; RBUF REGISTER BIT NAMES 
JDO OOS IOISISIOIDISIOIDISIIIDISISIISIIIIIIOIIUIDISIIOIOIOIOIIIOIOIDIIIOIDIIOIIOII TIA IE 
; ERROR INDICATOR 
; OVERRUN ERROR 
; FRAMING ERROR 
; PARITY ERROR 


: ‘\ RECEIVED DATA BITS 


RDATAO= e4 


SERRE REE RRR KEE EERE 


a : TCSR REGISTER BIT NAMES 


DIRK KERR EERE RRR KEE 


\ ROGRAMMABLE BAUD 
/ RATE BITS 
0000 


01 PBAUDO= ff 
004000 ; ENABLE SETTING OF 
; PROGRAMMABLE BAUDE RATE 


; UNUSED 
000200 ; TRANSMITTER READY 
000100 ; TRANSMITTER INTERRUPT ENABLE 


; UNU 
000004 B¢ ; MAINTENANCE SET BIT 
000001 BRE ; SEND BREAK (CONTINUOUS SPACE) 


SRE RRR REE EERE KEKE RE R EEE ERREEREKKEKE ERK 


; TBUF REGISTER BIT NAMES 


SRE EERE RRR RERAE EEA ERE EAR AEEARR EEE ERRERRAEEERREREERERRREe 


ag ; UNUSED BIT15 
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001336 


K_ 2 
23-AUG-78 15:14 PAGE 25 
BASIC DEFINITIONS 


bd bt ae nt bt a he be be 
-7- 


DDOWDDODOWDOOwW 
Sn on Hous oun Inoue Heoen Hee Ieee Ieee Ieee eee 
ooCooo°o0o}--— 
MOWEFEUAA NOOO NnWwse 


‘\ TRANSMITTER DATA BUFFER 


BeBe Be Be Be Be Be Be 


TDATAO= 


BU IRE REE ERE REE KER ER ERE ERE EERE 


; FLAG BITS TO BE USE OR CLEARED IN $USWR. 


DATA = 17 
PARITY = 20 
EVENODD = 40 
COMSPD = 100 
PBR = 200 


; BAUDE MUST BE ON THE UPPER 
: 5 Brite a -774 BITS 


10000 
20000 
40000 


FERRER RRR REE EKER EERE EERE EERE 


* SBTTL TRAP CATCHER 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A "' -+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
pLCAT FON © CRIES Q TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD Q i:SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 :2SOFTWARE SWITCH REGISTER 
- SBTTL STARTING ADDRESS(ES) 


MP T ;; JUMP TO STARTING ADDRESS OF PROGRAM 
-SBTTL ACT11 HOOKS 
PEC tP ITI t TTT ite t Tt is Titi Titi itititititititititiiriririiTits 


SHOOKS REQUIRED BY ACT11 
$SVPC=, sSAVE PC 


-=46 
“on 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


-WORD 0 gsenge! LOC. pee TO ZERO 
-=$SVPC 32 RESTORE P 


.-1 
-SBTITL APT PARAMETER BiOLK 


SEQ 0023 
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BAI OISIDIIOISIOIOIIOIOISIOIDIDIOIIIDIIOISIOIOIOIUIIIOIOIDIOIOII IOI IOI III III IIIT: 
Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

DBAS OID IOISISIOIOIOIIOIDIOISIISIISIOICIOICIOIOIOIIIOIOI IT I TOT TT TTT I IEE 
001000 - $X=. ei eave CURRENT LOCATION 
000024 . T POWER nate TO POINT TO START OF PROGRAM 
000200 ;FOR APT START UP 
000044 = :sPOINT TO APT INDIRECT ADDRESS PNTR. 

::POINT TO APT HEADER BLOCK 
7 ZRESET LOCATION COUNTER 

DDS O HSS SSID O ISIS III EI OIDISSOUIDIS UIT IIOITIEI IOI I I ot 
: SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 

$HIBTS: . 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: . $MAIL : ADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WOR 5 RUN TIM OF LONGEST TEST 

$PASTM: . 45. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: . 30. ::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
. $ETEND- ~sitaIL/2 3¢LENGTH MAILBOX~E TABLE (WORDS) 
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-SBTTL COMMON TAGS 


CAREER EERE EERE KERR RR EKREEKER KKK K 


tRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


-=1100 
SCMTAG: :<START OF COMMON TAGS 


. WORD 
STSTNM: y :¢ CONTAINS THE TEST NUMBER 
: NS ERROR FLAG 
SUBTEST ITERATION COUNT 
NS SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
NS ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR — 
ADDRESS OF ‘*GOOD' DAT. 
ADDRESS OF ‘BAD’ DATA. 
‘GOOD’ DATA 


:: CONTAINS ° * DATA 

> ZRESERVED--NOT TO BE USED 
; AUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


: ADDRESS OF SWITCH REGISTER 
airy RESS OF PF ees REGISTER 
TTY oo STATUS 


; BUF FE 
:ETTy PRINTER STATUS REG. ADDRESS 
Y PRINTER BUFFER REG. ADDRESS 
: CONTAINS NULL CHARACTER FOR FILLS 
ONTAINS # OF FILLER CHARACTERS REQUIRED 
i: INSERT FILL CHARS. AFTER A ‘LINE F 
‘TERMINAL AVAILABLE"’ A (BIT<07>=0=YES) 
NUMBER OF ITERATION 
000000 :  TESCAPE ON ERROR ADDRESS 
177607 000377 $BELL: .ASC <207><377><377> 33 CODE FOR BELL 
077 -— /?/ 2 QUESTION MARK 
015 fs <15> ; CARRIAGE RETURN 
000012 : IZ <12> LINE FEED 


JIS EIIIOAIIIOIOI IIDC ISIS IOUS IUIIOUISISOUIOUIIOUIOOIIUUIO IDE 


‘Sar TL APT MAILBOX-ETABLE 


CI AAA 


VOOCOCOCOOCO0O0—-VWOOC0O00C0OO 


9 
Se 
as 
v 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
988 00 
989 00 
990 00 
991 +00 
992 00 
993 00 
994 00 
995 00 
996 00 
997 00 
998 00 
999 00 
000 00 
0C1 00 
002 00 
003 00 
004 00 
005 00 
006 00 
007 00 
008 00 
009 00 
00 
00 
00 


pone om oe ee ee en en ee ee i 
on onl ce ol al nll ad cel an al ol a cl lh lh ll a ll co all el al ld cl el el cl al ca a cel cd cl acl cl 
NN NOAOAA.WMUIVIUUTE & SS BS WWWWWWWIRN Df 2 2 SS oo 


_— So So SS 


MAILBOX 
MESSAGE TYPE CODE 
ed ERROR NUMBER 

T NUMBER 


Se 3) 3 3 3 Sh 2 9 Sh 2 Sh hs os a a a ts 
SOoOoNNN 
RRVSARZ 


OOOCOCOSCOSOCCOCCCOCCOCooO 


ROMOMONM Pony 
MOEWN—OODONAUSRWN-O 


SEggesse 
MPNMNN-- 


:1/ NUMBER 
: IME SSAGE ADDRESS 


— 
oO 
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S$MSGLG: .WORD : «MESSAGE LENGTH 
ETABLE: EN 


VIRONMENT MODE BITS 
APT SWITCH REGISTER 
R_SWITCHES 
Pou TYRE 
11/04=01 ,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06 ,PDQ=07 ,0=10 


BIT 10=REAL_ TIME CLOCK 

BIT 9=FLOATING POINT _— 
BIT 8=MEMORY MANAGEMENT 

+ sHIGH a BYTE 


:MEM. TYPE,BL 
MEM.TYPE BYTE == (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 he + 003 
: HIGH ADDRESS ,BL 
MEM.LAST ADDR. ~¢ BYTES, THIS WORD AND LOW OF ''TYPE’’ ABOVE 
: HIGH ADDRESS -S. BYTE 


3;MEM.LAST ADDRESS ,BLK#2 
: sHIGH_ ADDRESS ,M.S.BYTE 
2 3MEM. TYPE ,BLKA3 
3:MEM.LAST ADDRESS ,BLKA3 
: sHIGH_ ADDRESS ,M.S.BYTE 
2 sMEM. TYPE, BLKA4 
-LAST ADDRESS ,BLKA4 


gessees 2 


> MEM 
3: INTERRUPT VECTORA1 BUS PRIORITY#1 
om Pg OF EQUIPMENT UNDER TEST 
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-SBTTL ERROR POINTER TABLE 


che” TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

; *LOCATION SITEMB. THIS NUMBER INDICATES WHICH I:EM IN THE as IS PERTINENT. 

;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA _IS (SERRPC). 

> *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


::POINTS TO THE FRROR MESSAGE 
:sPOINTS TO THE DATA HEADER 
:sPOINTS TO THE DATA 

::POINTS TO THE DATA FORMAT 


z 


cimeanad Ta 
SEESETES 


; : 


i) 
< 
> 
oO 


175610 


oo oOoo0o°o 
NWN 
SSSSSSSSSS 


re 


0 
BLKW 20 FOR RS STACK 
RSSTACK: -WORD 0 
START: 
itt INITIALIZE THE COMMON TAGS 
:CLEAR THE COMMON TAGS (S$CMTAG) AREA 
001100 MOV #SCMTAG ,R6 :sFIRST LOCATION TO BE CLEARED 


(R6) + ::CLEAR MEMORY LOCATION 
001140 CMP ASWR,R6 ; ;DONE? 
+4 ~6 LOOP BACK 


IF NO 
001100 #STACK, SP SETUP THE STACK POINTER 
s INITIALIZE A FEW VECTORS 

014370 M$SCOPE ,a#IOTVEC ;;I10T VECTOR FOR SCOPE ROUTINE 
000340 000022 #340, a#iOTVEC+2 ;:LEVEL 7 

PSERROR, aVEMTVEC ay VECTOR FOR ERROR ROUTINE 

#340, O-aWEMTVEC +2 ssLEVEL 7 

AHSTRAP , @#TRAPVEC CRAP VECTOR FOR TRAP CALLS 

#340, a#TRAPVEC+2;LEVEL 7 

#SPUR V 


;PORER FAILURE VECTOR 


000026 : : 
010742 MO } 2 ¢SETUP END-OF -PROGRAM COUNTER 
$TIMES NITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
177433 ALLOW ONE ERROR PER TEST 
177416 . : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
177412 MOV , SLPERR ETUP THE eet LOOP ADDRESS 
;SIZE FOR A HARDWARE mie REGISTER. JF NOT FOUND OR IT 
* TEQUAL TO A '1'', SETUP FOR A SOF TWARE SWITCH REGISTER. 
ee E ERROR VECTOR 
000004 , @ERRVEC 76 SET UP_ERROR VECTOR 
ADSWR, SWR SETUP FOR A HARDWARE SWICH REGISTER 
ACD ISP,DISPLAY ; ; AND A HARDWARE DISPLAY REGISTER 
177777 +=177406 : #-1,aSWR . TRY TO REFERENCE HARDWARE SWR 


BSLRIPBLLSSSESEE 


SSVREGRALLS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
1 
: 
1 
: 
1 
1 
1 
-o 
1 
1 
1 
; 
7 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ask a a od) od od od od oJ) od 


aah a a el el ea a mel 
NOW SW -O 





og 
25 Ae 


—— 
08 NOUN UFO > O00 


WOONAUR WO ODNAUSWN OO 


Wh— 


, 
; 
' 
1 
1 
1 
} 
: 
1 
: 
1 
1 
1 
1 
: 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
1 
: 
: 
. 
: 
: 
: 
: 
: 
: 
1 
: 
: 
: 
1 
; 
: 
; 
: 
1 
1 
! 
i 


NUNNN AROANMMNMVMNMNUIYI ES BRERA ER EWWWWWWWWw wn mM 
ANZSSEIEALAVIS BISARAV IS BSVRARAVS 
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012637 
005067 
132767 
001403 
012767 


005227 
1051 


000403 
112767 
000422 
012767 


004767 


012167 


011167 
016701 


015767 


016767 
062767 


177412 
000200 


001216 


177777 
012446 
001672 
000042 
177352 
177266 


000001 


000001 


010250 


177300 


177276 
177270 


177264 


177256 
000002 


1 30A(1052) 23-AUG-78 15:14 ~~ 0° 
INITIALIZE THE COMMON T 


66$ 


65$ 
#65$, (SP) 


177366 G,SWR 


177362 

(Sb) +, a#ERRVEC 
177417 
177332 ASSWREG , SWR 


67$: 
Pe TYPE PROGRAM 


NAME 
3 TYPE — + Paes PROGRAM IF FIRST PASS 


68$ 
000042 ASENDAD , #42 
68$ 


YPE 69 : TYPE AS 
GET VALUE FOR SOFTWARE stitcn REGISTER 
TST ase E we 


000001 
000176 


70$ 

SENV 41 
70$ 

SWR ,ASWREG 
71$ 


71$ 
177244 #1,$AUTOB 


ASWRE 
#DISPREG, DISPLAY 


PASS 
MAPTSIZE,SENVM 
67$ 


ot IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 


7 :BRANCH IF NO TIMEOUT 
SISET UP FOR TRAP RETURN 


:sPOINT TO SOFTWARE SWR 

; RESTORE ERROR VECTOR 
CLEAR PASS COUNT 

TEST USER SIZE UNDER a 


ES,USE NON-APT SWITC 
7.NO,USE APT SWITCH REGISTER 


TIME? 


iz IRST 
$3 IF NO 


CH 
in Li hg 
H_IF YES 
ASCIZ_ STRING 
ae RUNNING UNDER XXDP/ACT? 
Ay ge IF YES 
E A a as UNDER APT? 
‘SOF TWARE SWITCH REG SELECTED? 
; ;BRANCH IF NO 
32GET SOFT-SWR SETTINGS 
3:SET AUTO-MODE INDICATOR 
:GET OVER THE ASCIZ 


68$ 
<CRLF>*Z7- cvpva-¢’ DLV11-E OFFLINE TEST*<CRLF> 


LET INITFLAG := 


010404 #1, INITFLAG 


CYCLE 
PC,CYCLE 


(ADRS) + ,DLADD 


(ADRS) ,DLVEC 
DLADD ,ADRS 


177266 


177262 
177254 


DLADD,RCSR 
DLADD , RBUF 
ao ,RBUF 


#1 


; NO ARGUMENTS--ADDRS -> NEXT ADDRESS 
ADDRS+2 -> NEXT VECTOR 

;GET UNIT ADDRESS 
DLADD := (ADRS)+ 


GET UIT VECTOR 
DLVEC := (ADRS) 


ADRS := DLADD 


:RCSR = DLADD + 0 
RCSR_ := DLADD 


RBUF := DLADD + #2 


LET 


TCSR DLADD + #4 
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= 
N 
x 
~m 


3S SS ss 
ek etd ad as od od 2 ot od 
FRAVABIAYSO 

S 

Nm 

oO 

& 


016767 177242 
062767 000004 


016767 177226 
062767 000005 


016767 177212 
062767 000006 


012705 901334 
v00005 


MACY11 vaatihanaanad™ 
23-AUG-78 15:13 


177250 
177242 


177236 
177230 


177224 
177216 


‘oe? 


VALUE FOR SOFTWARE SWITCH REGISTER 


MOV 
ADD 


MOV 
ADD 


15:14 PAGE Fi 
DLADD, TCSR 
#4,TCSR 
ries 


#5, TCSRHI 
DLADD , TBUF 
6, TBUF 


° 


MRSSTACK RS 


TCSRHI := 


TBUF := 


R5 :2 
; ¢BRESET 


DLADD + #5 


DLADD + #6 


ARSSTACK 


SEQ 0029 


Z7-CVDVA-8 1 van Wome ore 15:14 PAGE 5° 
1 23-AUG-78 15: ADDRESSABILITY 


ao 
ba 
) 
om 
ws 
—N 


1S i gr eae ten ac cate ain ae 
TRTEST 1 ADDRESSABILITY 

;* nus TEST VERIFIES THAT THE ADDRESS AS PLACED IN 

;* THE HARDWARE P-TABLE TO BE CORRECT AND THE DLV11-E RESPONDS 
;* TO THAT ADDRESS SPACE 

BOI II IIIS ISIC IIOIOIIICISIOI IIIT IOIOIOI OTTO OT TOTO TTT OTT TOT TT OT TOT STOTT TIE 

000004 ST1: 

012767 000002 177070 #2,$TIMES He | 2 ITERATIONS 

012767 000001 177102 #1,$TESTN SET TEST NUMBER IN APT MAIL BOX 


LET ADRS := DLADD 
177152 DLADD ,ADRS 
SET UP INTERRUPT 
SETVEC #ILLMEM, AINTSRV,APR7 


am a es 8d od 8“ = “gs 2 = Lh S 


ke nk kd od = “ad =) a sd I Ld 
BELKSRAVLSSESR 


R1,~(SP) 
000004 #ILLMEM,R1 
AINTSRV, (R1)+ 
#PR7,(R1) 
(SP)+,R1 


177144 I 


LET 
REPEAT 
BGNSUB 
012767 002134 176754 #64$ ,SLPERR 
; CLEAR FLAG 
LET INTFLAG := #0 
005067 007674 INTFLAG 
READ FLAG 


IF INTFLAG NE #0 THEN 


005711 @ADRS 
005767 007666 INTFLAG 
001401 $2 
: FATAL ERROR 
ERRDF 1,,NODL 
ENDIF 


ENDSUB 
LET I := 1 + #2 


LET ADRS := DLADD + | 


104001 


062767 000002 177712 #2,1 
016701 177070 DLADD , ADRS 
066701 177102 1 ,ADRS 
026727 177076 000010 i. 


FRNA NSPE ADEE REEDED DDI 
WX VAM HS NV OOWDNAWES WHO NOME WR 


UNTIL I EQ #8, 


Was 


CLRVEC_ILLMEM 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,-(SP) 3;PUSH R2 ON STACK 
tS al 


° 


RR REREREN 


#2,Re 

R2,(R1)+ 

(Ri) 

(SP)+,R2 3.POP STACK IN'O R2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
‘ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 


MNMNNN 
RRW 
—-oOo 
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ADDRESSABILITY SEQ 0031 


1242 002224 012601 MOV (SP)+,R1 7sPOP STACK iNTO R1 
124 END OF TEST 


002226 ENDTST 


S RRR ERE REAR EEE RRA EEA REE REE 


° 


-* THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS 


° 
SD IR RRR RRR RRR RE RE REE REE RK AR ERA ERR ERR EER , 
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DSSS SITIES IIIS IIS SSIES SIDISIIISISIIEITEIIIEISIOIISISEIUIDI I IEE 
: TEST 2 BREAK - TCSRO SET, CLBAR, RESET 
: NOTE: THE (H) JUMPER MUST BE REMOVED FOR THIS 
i TEST TO FUNCTION PROPERL 
" : aguéaguabnensmanndadtan seantencanatehebenamensaneaunehmnnieties 
000004 S12: SCOPE 
012767 000010 176722 MOV #10, TIMES ;:DO0_10_ ITERATIONS 
012767 000002 176734 MoV #2, $TESTN SET TEST NUMBER IN APT MAIL BOX 


IF #BRK NOTSETIN $USWR THEN 
032767 010000 176746 BIT ABRK , SUSWR 
001004 BNE $3 


012767 000001 176676 MOV #1,$TIMES 
000452 BR TST3 2ecEXIT wes at 


EXIT TST 


; SEE IF IT IS CLEAR 
BGNSUB 
012767 002272 176616 #64$,$LPERR 
IF A#BREAK SETIN @TCSR THEN 
032777 000001 176764 #BREAK ,aTCSR 
001401 $4 
BREAK DID NoT a IN TCSR 
ERRHRD 2,-DIDNO 
ENDIF 
END SUB 
3; TRY 70 SET BREAK BIT 
BGNSUB 
012767 002312 176576 464%, $LPERR 
052777 000001 176744 BREAK ,aTCSR 


104002 


LFT @TCSR := @TCSR SET.BY BREAK 


; STUCK TO 0 
IF AMBREAK NOTSETIN @TCSR THEN 


032777 000001 176736 #BREAK ,aTCSR 
001001 $5 


BREAK DID NOT Daal IN TCSR 
ERRHRD 3, ,.DIDNO 


33 ENDIF 
002332 ENDSUB 

; TRY TC CLEAR A SET BIT 
002332 BGNSUB 
002332 012767 002340 176550 #64%,$LPERR 


002340 LET @TCSR := aTCSR CLR.BY BREAK 
002340 042777 000001 176716 #BREAK ,aTCSR 
; SHOULD HAVE CLEARED 


002346 ; : IF WBREAK SETIN aTCR THEN 
002346 032777 000001 176710 #BREAK ,aT(SR 


104003 


SESSSIBERF 


—_— ss = 2 3 ed os I es 


Ww 
oO 
wn 
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001401 BEQ $6 


z 
=§ 


1 30A(1052) _23-AUG-78 15: 
T2 BREAK - 


oO 


; BREAK DID NOT CLEAR IN TCSR 
ERRHRD 4,,DIDNOT 


ENDIF 
ENDSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 002366 176522 #64$ ,$LPERR 


Secs 


104004 4 


LET @TCSR := @TCSR SET.BY BREAK 
; ISSUE BUS RESET 
ESET 


ed od wd ed 


052777 000001 176670 #BREAK ,aTCSR 


a ae cl cal a al cl call el wall cl lt cil ly al cs Ss 
—[OODNANLSWN oO 


WWNANWNWNWWNNWAW 
mn 


as) 
NM 


000005 


032777 000001 176660 #BREAK ,ATCSR 
001401 $7 


IF MBREAK SETIN a@TCSR THEN 
; BREAK DID NOT RESET IN TCSR 
ERRHRD 5,,DIDNOT 

ENDIF 


END SUB 
ENDTST 


104005 


STEERER RRR ERE ERE EERE EERE ERE EKRE REE EERE RE 





z 
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S RARER RARER EERE RERER REE ERE EER RKE EEE AEKEKREKREEREKEK 


*TEST 3 MAINT = TCSR2 SET, CLEAR, RESET 


CTR ERE REE EEE ERK RRR RRR RE 
000004 TST3: SCOPE 
012767 MOV #10, $TIMES ::D0 10 ITERATIONS 
012767 MOV #3,$TESIN ‘:SET TEST NUMBER IN APT MAIL BOX 


; SEE IF IT IS CLEAR 
BGNSUB 
012767 902434 #64$ ,$LPERR 


me 


WNWWG 


2 IF AMAINT SETIN @TCSR THEN 
032777 000004 176622 AMAINT ,@TCSR 
001401 $10 
; MAINT DID NOT RESET IN TCSR 
ERRHRD 6,,DIDNOT 
ENDIF 
ENDSUB 
: TRY TO SET MAINT BIT 
, BGNSUB 
012767 002454 176434 #64$,$LPERR 


052777 000004 176602 AMAINT ,aTCSR 


BAPAPAAALE LE LE LES EEA 


104006 


WIWWIANIWWANWAWS 
MMVII 


ve) 


LET @TCSR := @TCSR SET.BY AMAINT 


; STUCK TO 0 
IF AMAINT NOTSETIN @TCSR THEN 
032777 000004 176574 AMAINT ,ATCSR 
001601 $11 


SSSERSS 


; MAINT_DID NOT SET IN TCSR 
ERRHRD 7,,DIDNOT 


ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
012767 002502 176406 #64$,$LPERR 


ae 


104007 


Nohetene?. x 
NNN 
moo 


N 
W 


LET @TCSR := aTCSR CLR.BY AMAINT 


; SHOULD HAVE CLEARED 
IF AMAINT SETIN @TCSR THEN 


042777 000004 176554 AMAINT ,@TCSR 


032777 000004 176546 AMAINT ,@TCSR 
001401 $12 
; MAINT DID NOT CLEAR INTCSR 
ERRHRD 10,,DIDNOT 
ENDIF 
END SUB 


; NOW SFE IF RESET CLEARS IT 
BGNSUB 


104010 10 


Rott deh chat SS 


; 
7 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
} 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 
1 
: 
1 
1 
1 
1 
] 
“ 
1 
: 
: 
: 
: 


Ww 
.e) 
— 
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CVDVAC .P11 23-AUG-78 15:13 13 MAINT = TCSR2 SET, CLEAR, RESET SEQ 0035 


012767 002530 176360 MOV #64$,$LPERR 


LET @TCSR := @TCSR SET.BY MAINT 


; ISSUE BUS RESET 
BRESET 


IF AMAINT SETIN @TCSR THEN 


052777 00004 176526 BIS AMAINT ,aTCSR 


000005 RESET 


032777 000004 7 BIT AMAINT ,ATCSR 
001401 BEQ $13 
MAINT DID NOT RESET IN TCSR 
ERRHRD 11,,DIDNOT 


ENDIF 


ENDSUB 
ENDTST 


106011 ERROR 11 


‘ 


CERI RE RER EEE ERR ERE EERE KEKE RE EERE EERE ERE EERE EKER EERE 





K 
i emhitead” ete 15:14 PAGE 38 
ITIE - TCSR6 SET, CLEAR, RESET 


SL RRR RRR REE REE RRR EERE EERE EEK 


s*TEST 4 XMITIE = TCSR6 SET, CLEAR, RESET 


CRRA KR E RR KEREE RK RRR RR ERREREREKRRI KK KK 


MAINDEC-ZZ7-CVDVA-8 
CVDVAC .P11 23-AUG-78 


TST4: 


000004 
2767 
2767 


2746 


000340 


176376 
176410 


#10,$TIMES 
#4, $TESIN 


#PR7 ,-(%P) 


aa 10_ITERATIONS 
SET TEST NUMBER IN APT MAIL BOX 
USE PRIORITY OF 7 
: PUT NEW PS ON STACK 


2746 002602 
000002 


#64$,- SP) :sPUT NEW PC ON STACK 


:sPOP NEW PC AND PS 
; SEE IF IT IS CLEAR 
BGNSUB 


012767 002610 176300 #65$,$LPERR 


IF AXMITIE SETIN @TCSR THEN 


032777 Q00I00 176446 


AXMITIE,@TCSR 
001401 $14 


;_XMITIE DID NOT RESET IN TCSR 
ERRHRD 12,,DIDNOT 


ENDIF 
ENDSUB 
; TRY TO SET XMITIE BIT 
BGNSUB 
#64$,$LPERR 
AXMITIE,@TCSR 


104012 12 


012767 002630 176260 
052777 000100 176426 


LET @TCSR := 


; STUCK TO 0 
IF MXMITIE NOTSETIN @TCSR THEN 


@TCSR SET.BY #XMITIE 


032777 000100 176420 


AXMITIE,@TCSR 
001001 $15 


; XMIT DID NOT RESET IN TCSR 
ERRHRD 13,,DIDNOT 


ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
#64$,$! PERR 


104013 13 


012767 002656 176232 
LET @TCSR := 


; SHOULD HAVE CLEARED 
IF AXMITIE SETIN @TCSR THEN 


@TCSR CLR.BY #XMITIE 


042777 000100 176400 #XMITIE ,@TCSR 


032777 000100 176372 


MXMITIE ,ATCSR 
001401 $16 


XMIT DID NOT CLEAR IN TCSR 
ERRHRD 14,,DIDNOT 


ENDIF 


104014 ti 





MAINDEC-27-CVDVA-8 MACY] 
CVDVAC .P11 23-AUG-78 15:13 


002676 $16: 
002676 ENDSUB 


; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 002704 176204 #64$ ,SLPERR 


1 30A(1052) 23-AUG=78 15:14 
: 14 XMITIE = 


PAGE bg 
TCSR6 SET, CLEAR, RESET SEQ 0037 


LET @TCSR := @TCSR SET.BY #XMITIE 


; ISSUE BUS RESET 
BRESET 


IF AXMITIE SETIN @TCSR THEN 


052777 000100 176352 AXMITIE,@TCSR 


000005 


032777 000100 176342 #XMITIE,@TCSR 
001401 $17 
;_XMIT DID NOT RESET IN TCSR 
ERRHRD 15,,DIDNOT 


ENDIF 


END SUB 
ENDTST 


104015 15 


CR REE REE KR E RE REREREKR KR EKKEKRERKEEEKEEREEKKK 
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MAINDEC-2Z7-CVDVA-8 1 30A(1052)_ _23-AUG-78 15:14 PAGE 40 
CVDVAC .P11 23-AUG-78 15: T5 DTR = RCSR1 SET, CLEAR 


DIBA OISIOISIIOISIOIIOISISIOISIOIOIOIOIIOIIOIOITIOI TOIT TOTTI TOT TTT TOT TT TOT OTT TTT TTT 
“RTEST 5 SET, CLEAR 
: RESET DOES NOT CLEAR THIS BIT 
ANNOT TEST FOR AN INITIAL CONDITION 
EF INED UPON POWER UP AND 


THE (-FD) JUMPER MUST BE IN FOR THIS TEST TO WORK. 
~MmARRESSAALALSAZLALESALELE ESAS ESET CE REE EES SST PT PCCP Pe eee ee ee eee a 
000004 TS: 

012767 000010 176222 #10,$TIMES 3:D0 10, ITERATIONS 
012767 000005 176234 #5,$TESIN ::SET TEST NUMBER IN 


N APT MAIL BOX 
ai, #FRFD NOTSETIN $USWR THEN 
032767 040000 176246 #FRFD ,SUSWR 
001004 $20 


** 
** 
** 
** 
** 
e 
ré 


SESeeR 


EXIT TST 


012767 000001 176176 #1,$TIMES 
000441 BR TST6 ss cBAiT mie 


: TRY TO CLEAR DIR BIT 

BGNSUB 
012767 002772 176116 #64$ ,SLPERR 
042777 000002 176260 #DTR,@RCSR 


LET @RCSR := ARCSR CLR.BY ADIR 
; STUCK TO 0 
IF #DTR SETIN @RCSR THEN 
032777 000002 176252 #DTR,ARCSR 
001401 ; $21 
; DTR DID NOT CLEAR IN RCSR 
ERRHRD 16,,DIDNOT 
ENDIF 
ENDSUB 
: TRY TO SET OTR 
BGNSUB 


012767 003020 176070 #64$,$LPERR 


MYA AMAIA IITA 
RORY UVa at ot ot 
UOESWN =O OONOAUSWN—O 


Mn MN = 


104016 16 


N 
CONS 


LET @RCSR := A@RCSR SET.BY #DTR 
IF #DTR NOTSETIN @RCSR THEN 


052777 000002 176232 #DTR,@RCSR 
032777 000002 176224 #DTR,@RCSR 
001001 $22 


path baht hy eh gh tbe? gs 
BSBIKAEAYSSS 


;_ DTR DID NOT SET IN RCSR 
ERRHRD 17,,DIDNOT 


ENDIF 
ENDSUB 
; TRY TO CLEAR IT AGAIN 
BGNSUB 
012767 003046 176042 #64%,$LPERR 
042777 000002 176204 ; #DTR,@RCSR 


rs 


NOUSWN OO 


104017 17 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


KRRELLELEX 


©vooe 


= @RCSR CLR.BY #DTR 


Ww 
Ww 





N 3 
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VAC .P11 23-AUG-78 15:13 DTR = RCSR1 SET, CLEAR SEQ 0039 
1551 ; SHOULD HAVE CLEARED IT 
1552 003054 IF #DTR SETIN @RCSR THEN 
1553 003054 032777 900002 176176 BIT ADTR,ARCSR 
1554 003062 001401 BEQ $23 
1555 ; DTR DID NOT on IN RCSR 
1556 003064 ERRHRD 20,,DIDNO 
1557 003064 104020 ERROR 20 
1558 003066 ENDIF 
1559 003066 $23: 

1560 003066 ENDSUB 

1561 003 ENDTST 

1562 

1563 

1564 

1565 DROS II IOI II III IOI OO TO TOI TOI TI TOT OI TT TEI TOT I TI TOT TTI IE 


~~ 
a 


4 
ar ett nee © Enea "tame * 15:14 PAGE 2 
11 23-AUG-78 15: REQSEND = RCSR2 SET, CLEAR, RESET 


Ff AAA E EERE KERR EERE 


 #TEST 6 REQSEND = RCSR2 SET, CLEAR, RESET 
THIS TEST ASSUMES THAT JUMPER -(FR) IS IN 


 Cunsasbeenetdgnnannnnnbenensnnstneeneaensuumaneneanonsqnanene 
000004 i816: 
012767 176062 #10,$TIMES eee 10_ITERATIONS 
012767 176074 #6, $TESTN SET TEST NUMBER IN APT MAIL BOX 

IF #FRFD NOTSETIN $SUSWR THEN 
032767 176106 MFRFD,SUSWR 
001004 $24 
EXIT TST 


2ecEXIT THIS TEST 
ENDIF 


vi“ 
SINNNANNNSN 
WIAARAN 23 


012767 176036 #1,$TIMES 
000452 BR TST7 


; SEE IF IT IS CLEAR 
BGNSUB 
012767 003132 175756 #64$,$LPERR 


=" 
VMI 
RASALSS 


IF MREQSEND SETIN @RCSR THEN 
032777 000004 176120 MREQSEND ,@RCSR 
001401 $25 
; REQSEND DID NOT RESET IN RCSR 
ERRHRD 21,,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO SET REQSEND BIT 
BGNSUB 
012767 003152 175736 464%, $LPERR 


052777 09004 176100 HREQSEND ,aRCSR 


104021 21 


LET @RCSR := A@RCSR SET.BY #REQSEND 


; STUCK TO 0 
IF #REOSEND NOTSETIN @RCSR THEN 


032777 000004 176072 I #MREQSEND ,@RCSR 
001001 $26 


; REQSEND DID NOT SET IN RCSR 
ERRHRD 22, ,DIDNOT 


ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
012767 003200 175710 #64$,$LPERR 


104022 22 


8 


LET @RCSR := ARCSR CLR.BY #REQSEND 


; SHOULD HAVE CLEARED 
IF MREQSEND SETIN @RCSR THEN 
032777 000004 176044 #rR©QSEND,aRCSR , 
001401 $27 


042777 000004 176052 AMREQSEND , @RCSR 


Vw So SS SS 
AXRXAARAKAAKARHO 

Roy @ 9 a PR Seo So 

[OQOdWNOAULWN—o© 


oO 
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CVDVAC .P11 23-AUG-78 15:13 T6 REQSEND = RCSR2 SET, CLEAR, RESET 


; REQSEND DID NOT CLEAR IN RCSR 
ERRHRD 23,,D!IDNOT 


ENDIF 
ENDSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 003226 175662 #64$,$LPERR 


104023 ERROR 23 


SERENE 


Se saaa aaa 
W Mm 
nNio— 


LET @RCSR := ARCSR SET.BY #REQSEND 


; ISSUE BUS RESET 
BRESET 


IF MREQSEND SETIN @RCSR THEN 


AXXO 
# 


052777 000004 176024 #REQSEND ,@RCSR 


000005 
032777 000004 176014 MREQSEND ,@RCSR 
001401 $39 
; REQSEND DID NOT RESET IN RCSR 
ERRHRD 24,,DIDNOT 
ENDIF 


DSUB 


104024 24 


EN 
ENDTST 


CURR RRR ER RR RRR RRR EKER RRR RR Ke 





MAINDEC~2Z-CVDVA-8 
° 23-AUG-78 


000004 
012767 
012767 


012767 


032777 
001401 


104025 


012767 
052777 


032777 
001001 


104026 


012767 
042777 


032777 
001401 


104027 


012767 


1 


003274 


000010 


003314 
000010 


000010 


003342 


000010 


000010 


D 4 
30A(1052) _23-AUG-78 15:14 PAGE 44 
17 SECXMIT = RCSR3 SET, CLEAR, RESET 


SL RRR REE REE ER ERE RE ARERR EERE ERE K 


:*TEST 7 SECXMIT = RCSR3 SET, CLEAR, RESET 


JIGS IIIT ICICI IIT TT TTA ARIS SSAA SSI 


1817: SCOPE 
MOV #10,$TIMES 2200 10_ITERATIONS 
#7, $TESTN SET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 
175614 #64$ ,$LPERR 


IF MSECXMIT SETIN @RCSR THEN 
175756 : tated ant 


;_ SECXMIT DID NOT RESET IN RCSR 
ERRHRD 25,,DIDNOT 


ENDIF 
ENDSUB 
; TRY TO SET SECXMIT BIT 
BGNSUB 
175574 #64$ ,,$LPERR 
175736 ASECXMIT,@RCSR 


25 


LET @RCSR := @RCSR SET.BY #SECXMIT 


; STUCK TO 0 
IF ASECXMIT NOTSETIN @RCSR THEN 
175730 al aia 


;_SECXMIT DID NOT SET IN RCSR 
ERRHRD 26, ,DIDNOT 


ENDIF 
ENDSUB 
:; TRY TO CLEAR A SET BIT 
BGNSUB 
175546 #64$,$LPERR 


26 


LET @RCSR := ARCSR CLR.BY #SECXMIT 


175710 ASECXMIT,@RCSR 
; SHOULD HAVE CLEARED 
IF ASECXMIT SETIN @RCSR THEN 


175702 ASECXMIT ,@RCSR 
$33 


:_SECXMIT DID NOT CLEAR IN RCSR 
ERRHRD 27,,DIDNOT 


ENDIF 
ENDSUB 


BGNSUB 
175520 4c’ $, $LPERR 
; NOW SEE IF RESET CLEARS IT 


27 








E 4 
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CVDVAC P11 23-AUG=78 15:13 17 SECXMIT = RCSR3 SET, CLEAR, RESET 
LET @RCSR := @RCSR SET.BY #SECXMIT 


; ISSUE BUS RESET 
BRESET 


IF ASECXMIT SETIN @RCSR THEN 


052777 900010 175662 BIS ASE CXMIT ,A@RCSR 


000005 RESET 


032777 000010 175652 BIT ASECXMIT ,@RCSR 
001401 BEQ $34 
; SECXMIT DID NOT RESET IN RCSR 
ERRHRD 30,,DIDNOT 


ENDIF 


ENDSUB 
ENDTST 


104030 ' ERROR 30 


NNNNNNNNNN NSN 


NMONINONDA 2 2 2 Ss SS SS SO 
NAARWN OOO NOME WO Dee 


las las) 


7 
1 
1 
1 
1 
1 
7 
7} 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NNNN 
las) 
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CVDVA 23-AUG-78 15: DATAIE - RCSRS SET, CLEAR, RESET 


FTI KI RHR HI KITT IK I II IK 


LATEST 10 DATAIE - RCSR5 SET, CLEAR, RESET 


IIIA IOI ISIC SIII ITI OITOISI TOI IOI IIIT TIT IIIT TOT TT ATA 


000004 18110: SCOPE 
012767 000 MOV #10,$TIMES ;:D0_10_ ITERATIONS 
012767 MOV #10, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 
012767 003436 #64$,$LPERR 
. IF ADATAIE SETIN @RCSR THEN 
032777 000040 175614 #DATAIE ,aRCSR 
001401 $35 
; DATAIE DID NOT RESET IN RCSR 
ERRHRD 31,,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO SET DATAIE BIT 
BGNSUB 
012767 003456 175432 #64$,,$LPERR 


052777 000040 175574 ADATAIE ,@RCSR 


104931 31 


LET @RCSR := ARCSR SET.BY ADATAIE 
; STUCK TO 0 
IF ADATAIE NOTSETIN @RCSR THEN 
032777 000040 175566 A#DATAIE ,@RCSR 
001001 $36 
; DATAIE DID NOT SET IN RCSR 
ERRHRD 32, ,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 


012767 003504 175404 #64$,$LPERR 


104032 32 


LET @RCSR := ARCSR CLR.BY #DATAIE 


; SHOULD HAVE CLEARED 
IF MDATAIE SETIN @RCSR THEN 


042777 000040 175546 ADATAIE ,@RCSR 


032777 000040 175540  #DATATE aRCSR 
001401 B $37 


; DATAIE_DID NOT CLFAR IN RCSR 
ERRHRD 33,,D!DNOT 


ND IF 
3504 ints 
003524 | ENDSUB 

; NOW SEE IF RESET CLEARS IT 
003524 BGNSUB 
003524 012767 003532 17535¢ #64$, $LPERR 


104033 33 








at ett Te MACY11 30A(1052) 


VAC .P 


1784 
785 
1786 
1787 
1788 
1789 
1790 
1791 


3 


793 


, 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 


23-AUG-78 15:13 


052777 00040 175520 
000005 
03277” 000040 175510 
001401 


104036 


ne 15:14 


PAGE 47 
DATAIE = RCSR5S SET, CLEAR, RESET 


LET @RCSR := @RCSR SET.BY #DATAIE 


; ISSUE BUS RESET 
BRE SET 


IF MDATAIE SETIN @RCSR THEN 


BIS #DATAIE ,aRCSR 


RESET 


BIT A#DATAIE ,@RCSR 
BEQ $40 
; DATAIE DID NOT ° ial IN RCSR 
ERRHRD i saahiaies 


ENDIF 


ENDSUB 
ENDTST 


ERROR 34 


SLATER H REAR RE REE AEA AE RER A RE S REE 
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CVDVAC .P11 23-AUG-78 15: RCVRIE - RCSRE. SET, CLEAR, RESET 


1804 FRR RIK REE EERE KR REE RRR KEE REE KER ERE EEE RK EK K 


1805 LATEST 11 RCVRIE ~ RCSR6 SET, CLEAR, RESET 
1806 JSC ISISIISISISISISIOISIOINISICIIIOI IIIT IO TI TIT TT TTT TO SATA ITT 
000004 r§111: SCOPE 
012767 MOV #10,$TIMES + #D0 10_ ITERATIONS 
012767 #11,$TESTN SET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 


012767 003600 3 #64$,$LPERR 


tt 


IF ARCVRIE SETIN @RCSR THEN 
032777 000100 175452 #RCVRIE,@RCSR 
001401 $41 
; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35,,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO SET RCVRIE BIT 
BGNSUB 
012767 003620 175270 #64$,$LPERR 


052777 000100 175432 i ARCVRIE ,@RCSR 


0 C0 09 00 G0 00 00 C0 C0 Co 
ed eta cal cal al all al ell cal 


104035 35 


LET @RCSR := @RCSR SET.BY #RCVRIE 


; STUCK TO 0 
IF AMRCVRIE NOTSETIN @RCSR THEN 


2 eo os 2 a os SI oS os SI SS st a 


BESLLVBVVSL 
DWNANEWN—O OONAUSWN—O 


032777 000100 175424 A#RCVRIE ,@RCSR 
001001 $42 . 
;_RCVRIE DID NOT SET IN RCSR 
ERRHRD 36,,DIDNOT 
ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 


012767 003646 175242 #64$,$LPERR 


104036 36 


1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 


LET @RCSR := @RCSR CLR.BY #RCVRIE 


; SHOULD HAVE CLEARED 
IF AMRCVRIE SETIN @RCSR THEN 


042777 000100 175404 ARCVRIE,@RCSR 


032777 000100 175376 ARCVRIE ,ARCSR 
001401 $43 


— so SS 
ARARKKKKLEKKK 
SO ODDONAWEWR 


; RCVRIE_DID NOT CLEAR IN RCSR 
ERRHRD 37, ,DIDNOT 


ENDIF 
ENDSUB 
; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 003674 175214 #64$,$LPERR 


104037 37 





E 


SESS TETEE 5S 


— oe es ed sd I S 


eae 


vi 


052777 
000005 
032777 
001401 


104040 


VDVA-8 MACY11 eaihiitall 
23-AUG~78 15:13 


400100 


000100 


175356 


175346 


. ioe’. 15:14 PAGE 49 
RCVRIE = RCSRe SET, CLEAR, RESET 


BIS ARCVRIE,ARCSR 
RESET 
BIT #RCVRIE,@RCSR 
BEQ $44 
ERROR 40 

$44: 


ENDS 
ENDTST 


LET @RCSR := A@RCSR SET.BY ARCVRIE 
; ISSUE BUS RESET 
ESET 


IF AMRCVRIE SETIN @RCSR THEN 
« RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40, ,DIDNOT 


ENDIF 


CKLOOP 
UB 


SRR RRR REE RRR RRR EAR KEKE RK KKE RR K KERR KERR KKK KEK 


-* THE FOLLOWING 4 TESTS VERIFY 


oe THAT RESET (INIT) INITIALIZES READ ONLY BITS. 


SRR ERR EEK EER ERE KEE ERE REE REE RRR 


SEQ 0047 


J 4 
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CVDVAC .P11 23-AUG-78 15:13 T12 TEST THAT RCVRDONE = RCSR 7 = IS CLEARED BY INIT 


FREER KERR REE EKER RRR EEE REE EEE KEK 


PATEST 12 TEST THAT RCVRDONE = RCSR 7 = IS CLEARED BY INIT 


SRR RRR REE E RE RRRERREKRERE RE ERERERERERERREERERE REE 


000004 18112: SCOPE 
012767 090010 MOV #10,$TIMES ::D0_10_ ITERATIONS 
012767 000012 MOV #12,$TESIN 3:SET TEST NUMBER IN APT MAIL BOX 


BGNSUB 
IF AMRCVRDONE SETIN @RCSR THEN 


012767 003742 175146 #64$,$LPERR 


032777 000200 175310 Bli A#RCVRDONE ,aRCSR 
001402 $45 


sRCVRDONE SHOULD HAVE CLEARED BY INIT 
; RCVRDONE DID NOT CLEAR IN RCSR 
’ ERRHRD 41,HRESET, DIDNOT 


REISSUE RESET 
BRE SET 


104041 


BESRgRERS 


000005 
ENDIF 


;ALLOW LOOPING AFTER ERROR 
LOOP 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 


0000000000 
fa Pe Pe PP P- Ps P- P- De 
WO NAW RWI HO 
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VDVAC .P11 23-AUG~78 15:13 713 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT 


DIARRA IISIIIOIIIISIIOIIISIDIOISIIOIOIOISIICIOISIIOISIOIIOIOIOIOI IOI TIT IT ST TT TTI TT TOT OT TIE 
TRTEST 13 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT 
IIIS SIOISISIOIDISIOIOISIOISISIIOISIIOIIOIOIIOIOIIOIOIIOII IOI IIT TT TIE TIE EE IE 

000004 18113: SCOPE 

012767 MOV #10,$TIMES 3;:D0_10_ ITERATIONS 

012767 MOV #13. S$TESTN 7-SET TEST NUMBER IN APT MAIL BOX 


BGNSUB 
012767 004002 175106 #64$,$LPERR 


IF AXMITRDY NOTSETIN @TCSR THEN 
032777 000200 175254 AXMITRDY ,ATCSR 
001002 BN $46 


RESET SHOULD HAVE SET BIT 
:XMITRDY DID NOT SET IN TCSR (AFTER RESE 
104042 ERRHRD 42,HRESET,DIDNOT 


; ISSUE ANOTHER RESET 
BRE SET 


000005 
jue LOOPING ON ERROR 


N 
ENDTST 
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FREER REE RRR ERE EERE KERR RE EREEEREREREKKEEEK 


UATEST 14 TEST THAT DATAINT = RCSR 15 = IS CLEARED BY INIT. 


FARRAR RRR EERE RRR ERE ERE RRA 


18114: SCOPE 
MOV #10,$TIMES ::D0_10_ ITERATIONS 
MOV #14, $TESTN :-SET TEST NUMBER IN APT MAIL BOX 


BGNSUB 
IF ADATAINT SETIN @RCSR THEN 


072767 004042 175046 #64$,$LPERR 


032777 100000 175210 #DATAINT ,@RCSR 
001402 $47 


ERRHRD 43, HRESET, DIDNOT 
104043 43 


TESTING EFFECT OF RESET ON BIT 


;DATAINT DID NOT CLEAR IN RCSR 
TALLOW A FRESH START 
BRESET 


000005 
ENDIF 


CKLOOP 


ENDSUB 
ENDTST 


CLR RRR RRR EEE REE ERE EERE RRR 
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M 
PAGE 53 
TEST THAT RCVRACT = RCSR 11 = 15 CLEARED BY INIT SEQ 0051 


SRR RRA EKKEEEKKK 


S*TEST 15 TEST THAT RCVRACT = RCSR 11 = 15 CLEARED BY INIT 


5 RRR RRR KKEK 


TST15: SCOPE 
MOV #10, $TIMES ::D0 10 ITERATIONS 
MOV #15. $TESIN ::SET TEST NUMBER IN APT MAIL BOX 


g 


SESSIPSSSISRE 


000010 
000015 
IF A#CABLE NOTSETIN $SUSWR THEN 


020000 175116 ACABLE , $USWR 
$50 


;_CAN'T TEST WITHOUT BERG OR H315. 
EXIT TST 


012767 000001 175046 #1,$TIMES 
000411 BR TST16 22cEXIT pais 


SBenar 
$8 $88 88  SE8R8 


BGNSUB 
012767 004122 174766 #64$ ,$LPERR 


IF AMRCVRACT SETIN @RCSR THEN 


8s 


ee ek ee ed ed ed ed 


CONAUSWH—O 
Onn £5 


abated aabad 
Wrnnme —--— 


032777 004000 175130 #RCVRACT ,@RCSR 
001402 $51 


38 


RESET SHOULD HAVE CLEARED RCVRACT 
ERRHRD 44, HRESET, DIDNOT 


ad and 
WW 
MN 


104044 


20 
20 
20 
20 


So 


TESTING EFFECT OF RESET ON BIT 
:RCVRACT DID NOT CLEAR IN RCSR 


;ALLOW ANOTHER TRY 
BRESET 


ENDIF 


ALLOW LOOPING ON ERROR 
CKLOOP 
ENDSUB 
ENDTST 


RRR RREE 
Bae RRR 
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Pir cette fk ae ae a 


<% THE FOLLOWING 4 TESTS VERIF 
:* THAT THE EIA SIGNALS CAN BE TRANSMITTED 
;* AND RECEIVED THROUGH THE CABLE 


DAIS III III III III IIIT I TTT TATA ATTA ISAS STASIS ASSIS ASS ASOT 


oe Re TIT TI TOT TTT IR ITT IIIT TOOT TO RTT TTT ITT RIT 


SeTEST 16 TEST THAT CARDET SETS AND CLEARS 
te AS DTR SETS AND 


CLEARS 

:* THE (-FD) JUMPER MUST BE IN FOR THIS TEST. 

TTTTITITI TITTLE LL LLL Ltt Lt ert: 
000004 18116: 
012767 000010 #10,$TIMES 3:D0 10 ITERATIONS 
012767 000016 #16, $TESTN 32SET TEST NUMBER IN APT MAIL or 

CAN WE USE THE WRAPAROUND?? 

IF WCABLE+FRFD NOTSETIN $USWR THEN 


— os — J 


Onn LL 
MPLS DOR 


032767 060000 ACABLE+FRFD,SUSWR 
001004 $52 


: CAN'T TEST WITHOUT BERG OR 4315 
: OR WITH (-FD) JUMPER OUT. 


(=FR) JUMPER OUT. 
EXIT TST 
012767 174766 #1,$TIMES 
000441 BR TST17 32 cEXIT i Iga 


004 
004 
004 
004 
004 
004 
004 
004 
004 
004 
004 


— aed od od 
REVERE 


; DTR AND 
; CARDET ARE CONNECTED 
; BY THE H315 OR EQUIV. 
; CLEAR 
012767 004202 174706 #64$,$LPERR 


; CLEAR DTR 
LET @RCSR := @RCSR CLR.BY #DTR 


; CARDET SHOULD FOLLOW 
IF #CARDET SETIN @RCSR THEN 


042777 000002 175050 A#DTR,a@RCSR 


032777 010000 175042 #CARDET ,@RCSR 
001401 $53 
;_CARDET DID NOT 
; ERRHRD 45,,FORCE 
104045 45 


; CLEAR WITH DTR 
ENDIF 


ENDSUB 


BGNSUB 
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2088 004222 


33 
= 


NOMINM IN NN IN NON NNN NI No PoNoNonoNonyonoNny 
MMM OoOPooo 
NUS SaNONnRWUHOSRYRARAULS 


012767 


052777 


032777 
001001 


104046 


012767 


042777 


032777 
001401 


104047 


MACY11 thie atte | 


004230 


000002 


010000 


004256 


000002 


010000 


174660 


175022 


175014 


174632 


174774 


174766 


$54: 


$55: 


8 5 
15:14 PAGE 55 


TEST THAT CARDET SETS AND CLEARS 


MCV 


BIS 


BIT 
BNE 


ERROR 


MOV 


BIC 


BIT 
BEQ 


ERROR 


#64$,$LPERR 
; SET DTR 
LET @RCSR := @RCSR SET.BY ADTR 
¥DTR,ARCSR 
; CARDET SHOULD FOLLOW 
IF #CARDET NOTSETIN @RCSR THEN 
#CARDET,@RCSR 
$54 
; CARDET DID NOT SET 
ERRHRD 46,,FORCE 
46 
; WITH DTR 
ENDIF 
ENDSUB 
; CLEAR 
BGNSUB 
#64$,$LPERR 
; CLEAR DTR 
LET @RCSR := @RCSR CLR.BY A#DTR 
#DTR,aRCSR 
; CARDET SHOULD FOLLOW 
IF ACARDET SETIN @RCSR THEN 
#CARDET,@RCSR 
$55 
; CARDET DID NOT 
ERRHRD 47,,FORCE 
47 
; CLEAR WITH DTR 
ENDIF 
ENDSUB 
ENDTST 


SEQ 0053 
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2130 CII III IIIS III III TIO IOI III TOTO IOI 
2131 SD IR RII II IIIT ICTR TR TTR TI TTI TIT TOTTTOITOTOTTOTOITOTTTOITOT TIO 
2132 i*TEST 17 TEST THAT CLRSEND SETS AND CLEARS 
2135 3* AS DTR SETS AND CLEARS 
2134 7* (-FD) JUMPER MUST BE IN FOR THIS TEST TO WORK 
2135 CD IRIS IOI IO III III IOI TOTO OI TOIT 
2136 004276 000004 TST17: SCOPE 
2137 004300 012767 000010 174652 MOV #10, $TIMES ::D0 10 ITERATIONS 
2138 004306 012767 000017 174664 MOV #17,$TESIN 72SET TEST NUMBER IN APT MAIL BOX 
2139 3; CAN WE USE THE WRAPAROUND?? 
2140 004314 IF ACABLE+FRFD NOTSETIN $SUSWR THEN 
2141 004314 032767 060000 174676 BIT #CABLE+FRFD,SUSWR 
2142 004322 001004 BNE $56 
2143 ; CAN'T TEST WITHOUT BERG OR H315 
2144 004324 _ EXIT’ TST 
2145 004324 012767 000001 174626 MOV #1,$TIMES 
2146 004332 000441 BR TST20 SssEXIT THIS TEST 
2147 0043354 ENDIF 
2148 004334 $56: 
2149 
2150 ; DTR AND 
$123 ; CLRSEND ARE CONNECTED 
2153 2) ; BY THE H315 OR EQUIV. 
2154 *s, 
2155 3; CLEAR 
2156 004334 BGNSUB 
Slee 004334 012767 004342 174546 MOV #64$,$LPERR 
2159 ; CLEAR DTR 
2160 004342 LET @RCSR := ARCSR CLR.BY ADTR 
2161 004342 042777 000002 174710 BIC ADTR,@RCSR 
2162 : ; CLRSEND SHOULD FOLLOW 
2163 004350 ; IF #CLRSEND SETIN @RCSR THEN 
2164 004350 032777 020000 174702 BIT #CLRSEND,@RCSR 
2165 004356 001401 BEG $57 
2166 ; CLRSEND DID NOT 
2167 004360 ERRHRD 50,,FORCE 
Sice 004360 104050 ERROR 50 
2170 ; CLEAR WITH DTR 
2171 004362 ENDIF 
2172 004362 $57: 
2173 004362 ENDSUB 
2174 
2175 = SET 
2176 004362 BGNSUB 
af 44 004362 012767 004370 174520 MOV #64$,$LPERR 
2179 ; SET DTR 
2180 004370 LET @RCSR := ARCSR SET.BY ADTIR 
2181 04370 052777 000002 174662 BIS ADTR,@RCSR 
2182 ; CLRSEND SHOULD FOLLOW 
2183 004376 IF MCLRSEND NOTSETIN @RCSR THEN 
2184 004376 032777 020000 174654 BIT &c! RSEND,@RCSR 
2185 004404 001001 BNE $60 
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;_ CLRSEND DID NOT SET 
ERRHRD 51,,FORCE 


nmr 
=b 


a nk td 8d ws od A 


104051 ERROR 51 


; WITH DTR 
ENDIF 


ENDSUB 
3; CLEAR 
012767 004416 174472 #64$,$LPERR 


BGNSUB 


NMoNMINMINONM NNN NP 
ASKER SERESE F 


; CLEAR DIR 
_ LET @RCSR := ARCSR CLR.BY ADIR 


042777 000002 174634 #DTR.ARCSR 
ir * HCERSEND SETIN GRE GR. THEN 
032777 020000 174626 #CRSEND ,ARCSR 


001401 
; CLRSEND DID NOT 


RRHRD 52,,FOR 
104052 52 en 


; CLEAR WITH DIR 
ENDIF 


END SUB 
ENDTST 
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JIAO IOI IOI ISTORII TOI TOT TOT OT TOT TTT TOR TOT TSA SAS ASISISIISI SSSI SIS AMG 
TIAA OO IOI III IOI IOS STITT TTT TTS SSS SSS SSSI SAM. 
“RTEST 20 TEST THAT RING SETS AND CLEARS 
:* AS_ REQSEND SETS AND CLEARS 
:* THE (-FR) JUMPER MUST BE IN FOR THIS TEST. 
SRI IORI RIOR RIS IIIA IIASA IASI III IIIS IIIS ISIS ISIAIS ISSA SSA ASIA A 
000004 +8120: SCOPE 
012767 000010 MOV #10,$TIMES 3:D0_10 ITERATIONS 
012767 000020 MOV #20,$TESTN 3:SET TEST NUMBER IN APT MAIL BOX 
3; CAN WE USE THE WRAPAROUND?? 
IF MCABLE+FRFD NOTSETIN $USWR THEN 
032767 060000 ACABLE+FRFD,$USWR 
001004 BNE $62 
; CAN*T TEST WITHOUT BERG OR H315 
OR WITH (-FR) JUMPER OUT. 


EXIT TST 
012767 000001 174466 41,$TIMES 
000441 BR TST21 FIZSERIT a 


; REQSEND AND 
; RING ARE CONNECTED 


; BY THE H315 OR EQUIV. 
3; CLEAR 
012767 004502 174406 #64$,$LPERR 


BGNSUB 
; CLEAR REQSEND 
LET @RCSR := @RCSR CLR.BY #REQSEND 


: RING SHOULD FOLLOW 
IF MRING SETIN @RCSR THEN 


042777 000004 174550 MREQSEND ,@RCSR 


032777 040000 174542 #RING, ARCSR 
Uv01401 B $63 


;_ RING DID NOT 
ERRHRD 53,,FORCE 
104053 53 


; CLEAR WITH REQSEND 
ENDIF 


ENDSUB 
s SET 
012767 004530 174360 #64$,$LPERR 


BGNSUB 
; SET REQSEND 
LET @RCSR := A@RCSR SET.BY #REQSEND 


; RING SHOULD FOLLOW 
IF #RING NOTSETIN @RCSR THEN 


"052777 174522 MREQSEND,@RCSR 


032777 174514 #RING, a@RCSR 
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001001 BNE $64 
: RING DID NOT SET 
ERRHRD 54,,FORCE 
104054 ERROR 54 


- WITH REQSEND 
ENDIF 


ENDSUB 
3; CLEAR 
012767 004556 174332 #64$,$LPERR 


BGNSUB 
; CLEAR REQSEND 
LET @RCSR := @RCSR CLR.BY #REQSEND 


; RING SHOULD FOLLOW 
IF ARING SETIN @RCSR THEN 


042777 000004 174474 AREQSEND ,@RCSR 


032777 040000 174466 HARING, @RCSR 

001401 $65 
ERRHRD 55-, FORCE 

104055 55 a 


; CLEAR WITH REQSEND 
ENDIF 


DSUB 


EN 
ENDTST 
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DR RR RK RRR REE RRR RIKER RIKER EKER KKK 
SL ORR RRR ERR ERE REE REE E REE EKEE RK ERE RK 


; TEST 21 TEST THAT SECREC SETS AND CLEARS 
; AS SECXMIT SETS AND CLEARS 
DDO AUIS IIIOIOISIIISISISISIOIOISISIUIOIIOIDIOIIOIO IOI II IIIT ITI TTT IE 
000004 T5121: SCOPE 
012767 000010 174352 MOV #10,$TIMES 3:D0_ 10 ITERATIONS 
012767 000027 174364 MOV #21 ,$TESTN 3eSET TEST NUMBER IN APT MAIL BOX 
CAN WE USE THE WRAF'AROUND?? 
IF CABLE NOTSETIN $USWR THEN 
032767 020000 174376 ACABLE , $USWR 
001004 BNE $66 
, al T TEST WITHOUT BERG OR H315. 
x 
012767 000001 174326 MOv #1,$TIMES 


000441 BR S722 s:EXIT THIS TEST 
~ ENDIF 


3; SECXMIT AND 
; SECREC ARE CONNECTED 


: BY THE H315 OR EQUIV. 
3; CLEAR 
012767 004642 174246 #64%$,$LPERR 


BONSUB 
; CLEAR SECXMIT 
LET @RCSR := @RCSR CLR.BY #SECXMIT 


; SECREC SHOULD FOLLOW 
IF MSECREC SETIN @RCSR THEN 


042777 000010 174410 #SECXMIT,@RCSR 


032777 002000 174402 i ASE TREC, aR SR 
001401 $67 
;_SECREC DID NOT 
ERRHRD 56,,FORCE 
104056 56 


; CLEAR WITH SECXMIT 
END IF 


ENDSUB 
zs SET 
#64$,$LPERR 


; SY + ean T 
@RCSR @RCSR SET.BY #SECXMI 


; SECREC SHOULD FOLLOW 
#SECREC NOTSFTIN @RCSR THEN 


#SECKMIT ,@ROSR 


174354 #SECREC ,RCSR 
; SECREC DID NOT SET 
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104057 


012767 004716 174172 


042777 000010 174334 


032777 
001401 


002000 174326 


104060 


23-AUG-78 
T21 


ERROR 


15:14 


57 


PA 


3; CLEAR 


#64$,$LPERR 


MSECXMIT,@RCSR 


AHSECREC ,@RCSR 
$7° 


60 


AGE 61 
TEST THAT SECREC SETS AND CLEARS 


ERRHRD 57,,FORCE 
3; WITH SECXMIT 
ENDIF 
ENDSUB 


BGNSUB 


; CLEAR SECXMIT 
@RCSR := ARCSR CLR.BY ASECXMIT 


; SECREC SHOULD FOLLOW 
IF #SECREC SETIN @RCSR THEN 


LET 


;_SECREC DID NOT 
ERRHRD 60,,FORCE 


; CLEAR WITH SECXMIT 
ENDIF 


ENDSUB 
ENDTST 


SEQ 0059 
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JIGS GIO IOISISISISIOIIOIDIOIOIOIOI III SII IIIT TET TIT TTT TT IT TST TT TT ST TT IE 
ITISTITILI LITT L LLL LTTE EEE EE LEE LEE EEE E ELLE T TTT 
:ATEST 22 TEST THAT DATAINT ry SETS 
WHEN DTR CHANGES STAT 
AND THAT DATAINT IS CLEARED AFTER READING RCSR 
ie NOTE DTR IS TIED TO BOTH CARDET AND ene BY THE H315 
i* THE (-FD) JUMPER MUST BE IN FOR THIS TEST 
ICES IOISIIOIOIOI IIIS TINIE I ITI ITT IRR OTST RSA AAS TAS SSAA AM 
$8122: SCOPE 
2 200010 174212 MOV #10,$TIMES 3:D0_10 ITERATIONS 
012767 000022 174224 MOV #22,$TESIN s3SET TEST NUMBER IN APT MAIL BOX 
CAN WE USE THE WRAPAROUND?? 
IF WCABLE+FRFD NOTSETIN $USWR THEN 
032767 060000. 174236 BIT ACABLE+FRFD,$USWR 
001004 BNE $72 
; CAN'T TEST WITHOUT BERG OR H315 
;_OR WITH (-FD) JUMPER OUT. 


EXIT TST 
012767 000001 174166 MOV #1 ,$TIMES 
000463 TST23 so sEXIT Ln lca 

F 


sMAKE SURE NOTHING UNEXPECTED HAPPENS 
012746 000340 f #PR7 ,-(SP) 77PUT NEW PS ON STACK 
012746 005006 #64$,-(SP) 3zPUT NEW PC ON’ STACK 
000002 R :3POP NEW PC AND PS 


READ TWICE - CLEARS 
BGNSUB 
012767 005014 174074 #65$,$LPERR 
; CLEAR DTR 
LET @RCSR := A@RCSR CLR.BY #DTR 


;WAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 


042777 000002 174236 A#DTR,@RCSR 


010546 R5,-(SP) 
000001 #1.-(R5) 
004712 PC.WAIT 
012605 (SP) +,R5 
; READ RCSR = TO CLEAR DATAINT 
LET’ R3 := aRCSR 
017703 174216 @RCSR,R3 
; READ RCSR AGAIN 
IF #DATAINT SETIN @RCSR THEN 


2 032777 100000 174210 #DATAINT ,@RCSR 
001401 B $73 


; READING RCSR DID NOT CLEAR DATAINT 
ERRHRD 61,EDATAINT 


ENDIF 


104061 61 


FNDSUB 





MAINDEC-ZZ7-CVDVA-B MACY] 
CVDVAC .P11 23-AUG=78 15:13 


1 30A(1052) 23-AUG-78 15:14 PAGE 63 
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? ; DTR SETTING SETS DATAINT 
005054 BGNSUB 
005054 012767 105062 174026 ; #64$,$LPERR 


SET DIR 
LET @RCSR := @RCSR SET.BY #DIR 


IF ADATAINT NOTSETIN @RCSR THEN 


052777 000002 174170 ADTR,ARCSR 


032777 100000 174162 #DATAINT ,@RCSR 
001001 $74 
SETTING DTR DID NOT SET DATAINT 
ERRHRD 62,, E2DATA 


ENDIF 


104062 62 


IF ADATAINT SBTIN @RCSR THEN 
032777 174150 #DATAINT,@RCSR 
001401 $75 
sREADING_RCSR DID NOT CLEAR DATAINT 
ERRHRD 63,EDATAINT 
ENDIF 
FNDSUB 
; DTR CLEARING SETS DATAINT 
BGNSUB 


012767 005122 173766 #64%,$LPERR 


104063 63 


;CLEAR DIR 
LET @RCSR := A@RCSR CLR.BY #DTR 


IF ADATAINT NOTSETIN @RCSR THEN 


042777 000002 174136 #DTR,ARCSR 


032777 100000 174122 #DATAINT ,@RCSR 
001001 $76 

;CLEARING DTR DID NOT SET DATAINT 
ERRHRD 64, -ECDATA 


ENDIF 


END SUB 
ENDTST 


104064 64 
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| RORRANNAERRERRARERERERANEEERERRRARERERRRERTEREERERARTREEEEERE 
BRR OGIOI UII SIOIOISIOIOIOISISISISIIIOIIISI IOI IOI TOI IO TOT TOT TOT TTT TOT TOOT OT TOT TOT TIE 
i*TEST 23 TEST THAT DATAINT SETS WHEN RING SETS 
* AND THAT DATAINT DOES NOT SET wan RING CLEARS 
sf THE (-FR) JUMPER MUST BE IN FOR THIS TEST. 
Lieasiveesesranoepnenenene ne semnenenENse Neen ManENe nna nT On enDEOR 
000004 TST 
012767 000010 174006 #10,$TIMES 32:D0_10_ ITERATIONS 
012767 000023 174020 #23,$TESIN ssS@T TEST NUMBER IN APT MAIL BOX 
CAN WE USE THE WRAPAROUND?? 
IF WCABLE+FRFD NOTSETIN $USWR THEN 
032767 060000 174032 ACABLE+FRFD,$USWR 
001004 BNE $77 
; CAN'T TEST WITHOUT BERG OR H315 
; OR WITH (-FR) JUMPER OUT. 


: EXIT TST 
012767 000001 173762 #1, $TIMES 
000473 TST24 Z7cEXIT THIS -TEST 


sNO INTERRUPTS 
6 000340 A#PR7,-(SP) ;;PUT NEW PS ON STACK 
* 005212 #64$ ,-(SP) sPUT NEW PC ON STACK 
‘pop NEW PC AND PS 
sSTART OFF WITH EVERYTHING CLEAR 
BGNSUB 
005220 173670 #65$,$LPERR 


CLEAR RING 
LET @RCSR := A@RCSR CLR.BY #REQSEND 


Fh | 1 MILLI-SEC FOR CABLE 


000004 174032 AREQSEND ,@RCSR 


WAI TMS 
R5,-(SP) 
000001 #1,-(R5) 
004506 PC WAIT 
(SP)+,R5 
sREAD ONCE 
R3 := @RCSR 


;READ TWICE 
#DATAINT SETIN @RCSR THEN 


174012 @RCSR,R3 


100000 174004 ADATAINT ,aRCSR 
$100 


sREADING RCSR DID or CLEAR DATAINT 
ERRHRD 65, EDATAIN 


ENDIF 
ENDSUB 
SET RING ==> SET DATAINT 
BGNSUB 


65 


005260 
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005260 012767 005266 173622 MOV #64$,$LPERR 
;WE ARE SETTING RING 
; SET RIN 
LET @RCSR := A@RCSR SET.BY #REQSEND 


WAIT 1 MILLI-SE® FOR CABLE 
WAITMS 1 


052777 000004 173764 MREQSEND ,@RCSR 


010546 R5,-(SP) 
900001 #1,-(R5) 
004440 PC WAIT 

012605 (SP)+,R5 


032777 100000 173742 A#DATAINT ,A@RCSR 
001001 $101 


IF AMDATAINT NOTSETIN @RCSR THEN 
aSIEIN BIN BR so" ST Daa 
ENDIF 
ENDSUB 
CLEAR RING CAUSES NO CHANGE IN DATAINT (CLEAR) 
012767 005330 173560 #64$,$LPERR wow 


104722 122 


LET er i @RCSR CLR.BY #REQSEND 
042777 000004 173722 #REQSEND , @RCSR is ' 


sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 


010546 R5,-(SP) 
012745 000001 #1,-(R5) 
004767 004376 PC,WAIT 
012605 (SP)+,R5 


032777 100000 173700 #DATAINT ,@RCSR 
001401 $102 


ADATAINT SETIN @RCSR THEN 
CLEARING RING SET DATAINT 
ERRHRD 123, CLRRNG 
ENDIF 
ENDSUB 
EXIT 
000400 : ed ey THIS TEST 


104123 123 


SKIP AROUND MESSAGE 
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FARRER ERE REE REE REE EKER KEKE REE ERER EEE EKER KE 
TREE IIIS CITI NINIIOITITIDII IIIT IT TTT TTT SAAT TIS 


TATEST 24 TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE 


SERRE ERER EKER KERR ERE KK EK 


18124: SCOPE 
MOV #10,$TIMES 32D0_10 ITERATIONS 
000024 MOV #24 ,$TESTN Semel VEST NUMBER IN APT MAIL 
E * WRAPAROUND? 


CAN WE USE TH 
: 4 IF WCABLE NOTSETIN $USWR THEN 
032767 020000 173606 ACABLE , SUSWR 
001004 . BNE $103 
exit’ rst CAN'T TEST WITHOUT BERG OR H315. 
012767 000001 173536 #1,$TIMES 


000454 BR TST25 3ecEXIT THIS TEST 
ENDIF 


3NO_ INTERRUPTS 
012746 000340 #PR7 ,-(SP) 2 PUT NEW PS ON STACK 
012746 005436 #64$ ,-(SP) sPUT NEW PC ON STACK 
000002 >:POP NEW PC AND PS 


i; START FRESH 
:CLEAR SECREC 
LET @RCSR := ARCSR CLR.BY #SECXMIT 


LET R3 := @RCSR 


042777 000010 173614 AMSECXMIT,@RCSR 
017703 173610 @RCSR,R3 
SET SECREC ==> DATAINT SET 
BGNSUB 
012767 005456 173432 #65$,$LPERR 


SET SECREC 
LET @RCSR := ARCSR SET.BY #SECXMIT 


WAIT 1 MILLI~SEC FOR CABLE 
WAITMS 1 


052777 000010 173574 MSE CXMIT,@RCSR 


. 546 R5,-(SP) 
© 2745 000001 #1,-(R5) 
004767 004250 PC,WAIT 
012605 (SP)+,R5 


032777 100000 173552 ADATAINT ,@RCSR 
001001 $104 


IF AMDATAINT NOTSETIN @RCSR THEN 
ERRARD 12. ESATA | OATAIN' 
ENDIF 
ENDSUB 
CLEAR SECREC ==> DATAINT SET 


104124 124 
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BGNSUB 
012767 005520 173370 MOV #64$,$LPERR 
CLEAR SECREC 
LET @RCSR := @RCSR CLR.BY #SECXMIT 


WAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 


042777 000010 173532 ASECXMIT ,A@RCSR 


010546 R5,-(SP) 
012745 000001 #1,-(R5) 
004767 004206 PC,WAIT 

012605 (SP)+,R5 


032777 100000 173510 ADATAINT ,ARCSR 
001001 $105 


IF ADATAINT NOTSETIN @RCSR THEN 
CLEARING SECREC DID NOT SET DATAINT 
ERRHRD 125,, E2DATA 

ENDIF 


ENDSUB 
ENDTST 


104125 125 
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FERRARA ARR AEREAEEERREREREEEEEREREEERREEEEREREREERERERREREREKKKK 
TEES ISSO SOOO IIIS IIIS ION Et 
tSTEST 25 TEST THAT XMIT RDY = TCSR 7 = CLEARS 
te WHEN TBUF IS LOADED WITH A CHARACTER 
:* AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 
3 ; RRR EEKKKEKKEKAKEEREKKEREKEEKEAKEEKKEEKEAEAEKKKKK 
TST25: SCOPE 
MOV #1 STIMES ::D0 1 ITERATION 
MOV #25, ,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
; THIS TEST IS "BREAK OR HALT’ SINSATIVE. 
IF #APTENV SETIN $SENV THEN 
BIT MAPTENV, SENV 
BEQ $106 
EXIT TEST 
MOV #1, $TIMES 
BR TST26 s::EXIT THIS TEST 
ENDIF 
$106: 
BGNSUB 
MOV #64$,$LPERR 
: LOAD TBUF WITH ONE CHARACTER 
: WAIT FOR READY T OQ set 
: (SHOULD BE VERY SHORT WAIT 
* SINCE UART DOUBLE BUFFERS ITS INPUT) 
:SEND A CHARACTER 
LET @TBUF :B= #0 
CLRB = aTBUF 
:WAIT A MAXIMUM 
:OF 50 MSEC F 
:XMIT RDY TO SFT IN TCSR 
CALL’ TIMER IN <#500,#XMITRDY,TCSR,#SET> 
MOV R5,-(SP) 
MOV ASET,-(R5) 
MOV TCSR,~(R5) 
MOV AXMITRDY,-(R5) 
MOV #500,-(R5 
JSR PC, TIMER 
MOV (SP)+,R5 
;TIMER RETURNS AN ERROR IF BIT DID 
[NOT MEET CONDITION WITHIN TIME LIMIT 
IF .ERROR THEN 
BCC $107 
;XMIT RDY DID NOT SET IN TCSR 
ERRHRD 66,,DIDNOT 
ERROR 66 
ENDIF 
$107: 
ENDSUB 
BGNSUB 
may #64$,$LPERR 


; LOAD TBUF WITH A SECOND CHARACTER 
: CHECK pester THAT | eet IS CLEAR 
; AND THEN WAIT FOR IT TO S 
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105077 
000240 
032777 
001401 


104067 


010546 


0047 
01260 
103001 


104070 


173376 


000200 


003534 
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173362 


‘wet: 
T25 


$110: 


$111: 


C 6 
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TEST THAT XMIT RDY = TCSR 7 = CLEARS 


CLRB 


BIT 
BEQ 


ERROR 


aTBUF 


AXMITRDY ,aTCSR 
$110 


67 


R5,-(SP) 
ASET, -(R5) 
TCSR,-(R5) 
AXMITRDY -(R5) 
#500, -(R5) 
TIMER 
(Sb)e, RS 


$111 


70 


SEND SECOND CHARACTER 
LET @TBUF :B= #0 


: GIVE IT TIME TO CLEAR 
; aay By a SHOULD HAVE CLEARED UPON 
RECEIPT OF A CHARACTER 
IF #XMITRDY SETIN @TCSR THEN 


; XMITRDY DID an CLEAR IN TCSR 
ERRHRD 67, ,DIDNO 
ENDIF 
WAIT A ee ote 
: OF 50 MSEC F 
XMIT_ RDY TO SET IN TCSR 
CALL’ TIMER IN <#500,4XMITRDY, TCSR,#SET> 


IF .ERROR THEN 


:XMIT RDY DID NOT SET IN TCSR 
ERRHRD 70,,DIDNOT 


ENDIF 


ENDSUB 
ENDTST 


SEQ 0067 
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FRR KERR REE RE ERRERKKEEEKREKEKEKREKE ERE 
TAA IEITITIOIIO I IITIOOIOI OOO TT ITT ITT TTT TIE 
CRTEST 26 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 
te RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
te AND THAT RESET CLEARS THE BIT 
; BSUS IS IIOISIOIOISIOIOIIOISISISISEIUI IOI IOS IOIDIIOOIIOITOIIOI III IORI IIIT IOI tet 
000004 18126: SCOPE 
012767 000010 MOV #10,$TIMES ;:D0_10 ITERATIONS 
012767 000026 MOV #26-$TESTN ::SET TEST NUMBER IN APT MAIL BOX 


; SET THE MAINTENANCE BIT 
: LET @TCSR := @TCSR SET.BY #MAINT 
052777 000004 173276 BIS AMAINT ,ATCSR 


BGNSUB 
012767 005774 173114 MOV #64$ ,$LPERR 
; SEND A CHARACTER AND LET IT WRAP AROUND 


LET @TBUF :B= #0 
105077 173270 @TBUF 


3 WAIT A MAXIMUM OF 50 MSEC 
; FOR RCVR DONE TO SET IN 


; RCSR 
CALL TIMER IN <#500,4RCVRDONE ,RCSR,#SET> 
010546 R5,-(SP) 
177777 ASET,-(R5) 
173246 RCSR,-(R5) 
000200 MOV #RCVRDONE , -(R5) 
000500 #500,-(R55 
67 003442 PC. TIMER 
012605 (SP)+,R5 


DIDN'T SET IN TIME 
IF .ERROR THEN 


; RCVRDONE DID NOT SET IN RCSR 
ERRHRD 71,,D1DNOT 


ENDIF 


103001 $112 


104071 71 


ENDSUB 
BGNSUB 
012767 006042 173046 ; #64$,$LPERR 
; NOW THAT IT IS SET SEE IF IT oe BE RESET 
; THIS ALSO WILL CLEAR THE MAINT. BIT 
BRE SET 
000005 


IF #RCVRDONE SETIN @RCSR THEN 


032777 000200 173206 ARC VRDONE ,@RCSR 
001401 B $713 


; RCVRDONE BIR NOT RESET IN RCSR. 
ERRHRD 72,,DI 0NOT 
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006054 104672 ERROR 72 
006056 9113 


ENDIF 
DSUB 


EN 
ENDTST 
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III IOI ISIOIIIOIIOI IIIT OTT TOT OT TT TT TST TOT TOT ST TT TE I TT TT TT TI TT TS TT TE 
TASCA EIEIO ISIS I III IIIT TT TTT ITE 
TATEST 27 TEST THAT RCVRDONE IS CLEARED BY READING RBUF 
ZORA IOISIOIOIIIOIUICISIOIOI IOI III IOI TOT TTT TOT TOT OTT TOT TOT TTT TTT OT TT TST TIE 

000004 18127: SCOPE 

012767 000010 MOV #10, $TIMES 3:D0_10_ ITERATIONS 

012767 000027 #27, $TESIN 33SET TEST NUMBER IN APT MAIL BOX 


; SET MAINT. BIT 
LET @TCSR := @TCSR SET.BY #MAINT 
052777 000004 173162 AMAINT ,aTCSR 
. BGNSUB 
012767 006110 173000 #64$,$LPERR 
; OUTPUT A CHARACTER WITH MAINTENANCE 
; SET, AND WAIT FOR XMITRDY TO SET. 


OUTPUT A CHARACTER 
LET 5 TBUF :B= #0 


; WAIT MAXIMUM OF 500 MSEC 
: — TO SET IN 


; RCS 
CALL TIMER IN <#500,A4RCVRDONE ,RCSR,A#SET> 


105077 173154 @TBUF 


010546 MO R5,-(SP) 
177777 #SET,.-(R5) 
RCSR,-(R5) 
ARCVRDONE ,- (RS) 
#500,-(R5) 
003326 PC, TIMER 
012605 (SP)+,R5 
; DID IT BECAME READY? 
IF.ERROR THEN 


sRCVRDONE DID NOT SET IN RCSR 
ERRHRD 75,, DIDNOT 


ENDIF 
ENDSUB 


NOW THAT I’ IS SET LETS SEE IF READING THE 
; BUFFER CLEARS RCVRDONE. 


103001 $114 


104073 73 


READ BUFFER 
LET RO :B= @RBUF 
117700 173106 (OVE @RBUF ,RO 


IF #RCVRDONE SETIN @RCSR THEN 


032777 000200 173076 AR eVRDONE ,@RCSR 
001401 B $115 


sRCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 74,DIDNOT 


ENDIF 


104074 74 
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2894 DOIG IIIS III III III III IOI TOI TO TOTO TOT TOTTI OTE 
2895 TNE UIE IISIISISIISIOISIOOIOOI AITO IOI IIIS IOI IRR ARIE 
2896 : TEST 30 TEST THAT RCVRACT = RCSR 11 = SETS 
2897 ; WHEN A START BIT IS RECEIVED AND 
2898 * CLEARS WHEN RCVRDONE - RCSR 7 = SETS 
2899 © He RH TH I I IIR KEKE REE KEE EE KEKE KEK 
2900 006166 000004 78130: SCOPE 
2901 006170 012767 000010 172762 MOV #10, $TIMES 3:D0 10 ITERATIONS 
so 006176 012767 000030 172774 MOV #30,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 
2904 ; THIS TEST IS ‘BREAK OR HALT’ SINSATIVE. 
2905 006204 - IF AAPTENV SETIN $SENV THEN 
2906 006204 032767 000001 173002 BIT #APTENV, SENV 
2907 006212 001404 BEQ $116 
2908 006214 EXIT TEST 

006214 012767 000001 172736 MOV #1,$TIMES 
2910 006222 000500 BR TST31 si cEXIT THIS TEST 
2911 006224 ENDIF 
2912 006224 $116: 
2913 006224 LET @TCSR := @TCSR SET.BY AMAINT 
2914 006224 052777 000004 173032 BIS AMAINT,@TCSR 
2915 006232 LET RO := ACLR 
2916 006232 012700 000000 MOV #CLR,RO 
2917 006236 LET Ri z= #0 > 
2918 006236 005001 CLR R1 
2919 ;LOAD A CHARACTER INTO TBUF 
Gast ;WAIT FOR RCVRACT TO SET 
2922 ;SEND A CHARACTER 
2923 006240 : LET aTBUF :B= #0 
2924 006240 105077 173024 CLRB a TBUF 
2925 006244 REPEAT 
2926 006244 $117: 
2927 006244 IF ARCVRACT SETIN @RCSR THEN 
2928 006244 032777 004000 173006 BIT #RCVRACT,@RCSR 
2929 006252 001403 BEQ $120 
2930 006254 LET RO := @#SET 
2931 006254 012700 17777/ MOV #SET,RO 
2932 006260 ELSE 
2933 006260 000401 BR $121 
2934 006262 $120: 
2935 006262 LET R17 := RI + #1 
2936 006262 005201 INC R1 
2937 006264 ‘ ENDIF 
2938 006264 $121: 
2939 006264 UNTIL RO EQ #SET OR R71 HI MAX 
2940 006264 020027 177777 CMP RO,ASET ' 
2941 006270 001403 BEO $122 
2942 006272 020167 000124 CMP 4 MAX 
2943 006276 101762 BLOS = $117 
2944 006300 $122: 
2945 006300 IF R1 HI] MAX THEN 
2946 006300 020167 000116 CMP R1 MAX 
2947 006304 101407 BLOS = $123 
2948 i: IT NEVER SET 


2949 RCVRACT DID NOT SET IN RCSR, 
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ERRHRD 75,, DIDNOT 
LET RO := @RBUF ; CLEAR BUFFER 
EXIT TEST 
33cEXIT THIS TEST 
ENDIF 


104075 ERROR 75 
017700 MOV @RBUF ,RO 


012767 172636 MOV #1, $TIMES 
000440 BR TST31 


CHECK FOR TIMING OF RCVRACT. CLEARING 
;VS RCVRDONE SETTING 


WHILE ARCVRACT SETIN @RCSR DO 


032777 04000 172726 #RCVRACT ,@RCSR 
001416 $125 


IF ARCVRDONE SETIN @RCSR THEN 
032777 000200 172716 #RCVRDONE ,a@RCSR 
001411 $126 


032777 004000 172706 ARCVRACT ,@RCSR 
001405 $127 


IF #RCVRACT SETIN @RCSR THEN 


:RCVRDONE AND RCVRACT 
;BOTH SET 
ERRHRD 76, DONEACT 
3NO USE CONTINUING 
EXIT TST 


104076 76 


012767 000001 17257 ~~ #1 STIMES 
000417 1543] 


ticEXIT THIS TEST 
ENDIF 


ENDIF 


ENDDO 
000756 


sRCVRACT = O NOW. 

IF #RCVRDONE NOTSETIN @RCSR THEN 
032777 000200 A#RCVRDONE ,@ROSR 
001001 $130 
zRCVRDONE DID NOT SFT IN RCSR 
ERRHRD 77,,DIDNOT 


;SET IT BACK, 
ENDIF 


TES’ THAT READING THE RECEIVER 
BUFFER CLEARS RCVRDONE 


104077 77 
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$131: 


MOV @RBUF ,RO 


BIT ARCVRDONE ,@RCSR 
BEQ $131 


ERROR 100 
BR TST31 
MAX : 70000 


READ CHAR. 
LET RO := @RBUF 


IF #RCVRDONE SETIN @RCSR THEN 
;RCVRDONE DID —- IN RCSR 


ERRHRD 100,,DID 
ENDIF 


EXIT 
S23EXMIT THIS TEST 


ENDTST 


SEQ 0073 
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[IAI ISIC IOISIOISIIOIUIOIOIIOIIOIOI III IO IOI IIT OT TOTTI TT OTE TOTTI TT TST TT TTT TT OT TE 
TCA IAAI CIOIIII IOI IIIT RRS AAAS AA AAS AIM 
TEST 31 TEST THE OVERRUN BIT - RBUF 14 
SASSI IOISI SO IOICISIIOIOIOIOIOIS IOFOTO I ITT I TOT TOT TT I TTT TST OI TT TIE 
000004 18131: SCOPE 
012767 MOV #10,$TIMES 33D0_10 ITERATIONS 
012767 MOV #31,$TESTN 3-SET TEST NUMBER IN APT MAIL BOX 


Y BGNSUB 
012767 006450 172440 #64$,$LPERR 
OUTPUT 2 CHARACTERS WITH 
SAMPLE DELAYS BETWEEN FOR RECEPTION. 
THIS SHOULD AN CAUSE OVERRUN ERROR. 


;OUTPUT 1 CHARACTER 
LET @TBUF :B= #0 


;GO_ AWAY FOR 200. M SEC 
WAITMS 200. 


105077 172614 @ TBUF 


010546 = (SP) 
012745 000310 7360, 27 (R5) 
004767 003260 PC WAIT 
012605 (SP)+,R5 


;OUTPUT 2ND CHARACTER 
LET @TBUF :B= 40 


;LET OVERRUN HAPPEN 
WAITMS 200. 


105077 172574 a@TBUF 


010546 RS ,-(SP) 
012745 000310 #200. .-(R5) 
004767 003240 PC WAIT 
012605 (SP) +,R5 


sREAD BUFFER AND ERROR BITS 
LET R4 := @RBUF 


017704 172546 @RBUF ,R4 


:1T DIDN'T SET 
IF #ORERR NOTSETIN R4 THEN 
032704 040000 HORERR ,R4S 
001005 $132 
;ORERR DID wf} SET IN RBUF 
: ERRHRD 101, ,DIDNOT 
104101 101 


es eal ERRORS 
012767 000001 172426 #1 STIMES 
000456 B TST32 S22EXIT THIS TEST 
END IF 
ENDSUB 
:NOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 





; K_ 6 
MAINDEC-Z27-CVDVA-B 1 30A(1052) 23-AUG-78 15:14 PAGE 77 
CVDVAC.P11 23-AUG-78 131 TEST THE OVERRUN BIT - RBUF 14 SEQ 0075 


BGNSUB 


012767 172346 #64$ ,SLPERR 
IF #ERROR NOTSETIN R4 THEN 


032704 MERROR ,R4 
001005 $133 


ARGH EB. "SGt FO 
104102 ee 

s7WHEN ORERR SET. 

GET OUT NOW. 

EXIT TST 


012767 000001 172400 #1,$TIMES 
B TST32 33cEXIT THIS TEST 
ENDIF 


000443 
ENDSUB 
BGNSUB 
012767 006570 172320 #64$,$LPERR 
:CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
\ IF #ORERR NOTSETIN @RBUF THEN 
032777 040000 172464 #ORERR , @RBUF 
001002 BNE $134 


sREADING RBUF CLEARED ORERR. 
ERRHRD 103, I1TCLRED 


al REST OF TEST 
000432 si cEXIT THIS TEST 
ENDIF 


104103 


ENDSUB 
4 BGNSUB 
012767 006612 172276 #64$,$LPERR 
NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 


SEND A_ CHARACTER AROUND. 
LET a@TBUF :B= #0 


sLET IT CIRCULATE 
WAITMS 200. 


105077 172452 @TBUF 


10546 R5,-(SP) 
12745 000310 #200. ,-(R5) 

4767 003116 PC WAIT 
012605 : (SP) +,R5 


WDONAURBWWN =O ODO NAW SWRHO 


IF MORERR SETIN @RBUF THEN 


Wh 


032777 040000 172422 #ORERR , ARBUF 
001405 $135 
;ORERR DID NOT CLEAR IN RBUF 
ERRHRD 104, ,DIDNOT 


31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 
31 


1 
; 
1 
1 
1 
1 
1 
; 
7 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
30 
3 
3 
3 
34 
35 
36 
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006642 104104 FRROR 104 


s7AFTER RECEIVING ANOTHER CHAR 
iSKIP a REST 
012767 000001 172306 #1 ,$TIMES 


000406 BR TST32 scc€nlT THIS TEST 
ENDIF 


IF AERROR SETIN @RRUF THEN 
032777 100000 172400 #ERROR , ARBUF 
001401 B $136 
' ;ERROR DID NOT CLEAR IN RBUF 
ERRHRD 105,,DIDNOT 
104105 105 
ENDIF 
ENDSUB 
EXIT 
000400 s7cEXIT THIS TEST 
EVEN 
ENDTST 
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, s HRaPRNRNRAARNNNNNRNNTETeEeEETETEREReReneeeeeeseereeereeeeeenee 
ust a teams nek kat ate 
se EST 32 PROGRAMMABLE BAUD RATE TEST 

;* Hg 3 AT ALL SPEEDS AVAILABLE 

;* A_COMPARISON WILL BE MADE TO SEE 

;* IF NEW TIME IS LESS THAN PREVIOUS. 

sf 


Cea nee Tr ee 


1 


000004 
012767 900010 172260 #10,$TIMES 3:D0 " ITERATIONS 
012767 000032 172272 #32, $TESTN ssSef " NUMBER IN APT 


MAIL BOX 
F #PBR NOTSETIN $USWR THEN 

032767 000200 172304 #PBR , $USWR 

001004 $137 

EXIT TST 
012767 900001 172234 #1,$TIMES 
000552 TST33 secEXIT pat. 
N 


; THIS i IS_ "BREAK OR HALT’ SINSATIVE. 


MAPTENV SETIN $ENV THEN 
032767 000001 172260 HAPTENV, SENV 
001404 $140 


EXIT TEST 
012767 000001 172214 #1,$TIMES 
000542 BR TST33 ;3eEXIT THIS TEST 
ND IF 
LET OLD := 
LET OLD+2 : 
LET @TCSR := @TCSR SET.BY #MAINT 


;EACH BAUD RATE 
INCR R3 FROM #0 TO #15. BY #1 


012767. 177777 000272 #-1,0LD 
012767 177777 000266 #-1,0LD+2 
052777 000004 172274 AMAINT,aTCSR 
005003 R3 
000401 BR $141 
005203 ; R3 
020327 000017 ; R3,415. 
003060 $143 

LET RO := @RBUF 


; CHANGE BAUDE R 
LET @TCSRHI :B= RATES (R3) 


3;FLAG 
LET BIT := 40 


Z;QUTPUT THE CHARACTER 
LET @TBUF := #0 


: INITIALIZE COUNTER 


017700 172252 @RBUF ,RO 
116377 007170 172250 RATES(R3) ,@TCSRHI 
005002 BIT 


005077 172244 a7 SUF 
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005067 
005067 
005702 
001014 
032777 
001403 
012702 
000404 


005267 
005567 


000762 


026767 
103001 


000412 
026767 
001005 
026767 
103001 


000401 


104126 


000212 
000210 


000200 172272 


000001 


000160 
000156 


000150 000152 


000136 000140 
000124 000126 


my Y11 30A(1052) 
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NEW+2 


I 
145 
RCVRDONE , @RCSR 


T 
4 
C 
4 


V 
146 


#1,BIT 
$147 


NEW 
NEW+2 


$144 
NEW+2,O0LD+2 
$150 
$151 


NEW+2,OLD+2 
$152 
“¢ OLD 


152 


$153 


SEQ 0078 


LET NEW := 40 
LET NEW+2 := #0 
WHILE BIT EQ 40 DO 


IF ARCVRDONE SETIN @RCSR THEN 
:DONE - ITS READY 

LET BIT := #1 
ELSE 
; OTHERWISE- —_, TIME 

LET NEW := NEW + #1 

LET NEW+2 := NEW+2 + CARRY 
ENDIF 
SIGNALS DONE 

DDO 


IF NEW+2 LO OLD+2 THEN 


ELSE 


3; NEW+2 >= OLD+2 
IF NEW+2 EQ OLD+2 AND NEW LO OLD THEN 


sNEW+2 > OLD+2 OR 

3 (NEW+2 = OLD+2 AND 

; NEW >= OLD) 

;BAUD RATE DIDN'T CHANGE 
ERRHRD 126, BAUDRATE 


ENDIF 
ENDIF 
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3274 ;UPDATE OLD TIME 
3275 007126 LET OLD := NEW 
3276 007126 016767 900110 000112 MOV NEW, OLD 
3277 007134 LET OLD+2 := NEW+2 
35/8 007134 016767 000104 000106 MOV NEW+2,0LD+2 
3280 007142 ENDINC ;BAUD RATE 
3281 007142 000714 BR $142 
3282 007144 $143: 

3283 007144 LET R3 :B= $USWR+1 AND #17 ; PUT BAUD BACK 
3284 007144 116703 172051 MOVB SUSWR+1 ,R3 

3285 007150 110346 MOVB R3,-(SP) 

3286 007152 142716 000017 BICB = #17, (SP) 

3287 007156 142603 BICB (SP)+,R3 

3288 007160 LET @TCSRHI :B= RATES(R3) : LIKE HE WANTED IT 
3689 007160 116377 007170 172100 MOVB RATES(R3) ,@TCSRHI 

3291 007166 EXIT :SKIP TABLE 
3638 007166 000431 BR TST33 tzcEXIT THIS TEST 

3294 007170 ATES: ;A TABLE OF THE ACTUAL BYTES TO MOVE INTO THE 
3295 MPPER BiTe OF XCSR FOR EACH BAUD RATE 

3296 y** NOTE: THE VALUE INDICATED IN THE COLUMN ‘OFFSET 
3297 ‘ tee INTO TABLE’ CAN BE PLACED INTO BITS<11:8> 
3298 p** OF LOCATION ‘$SUSWR' TO CAUSE THE CORROSPONDING 
3299 pe BAUD TO BE SELECTED IN THE DLV11-E UPON 
eat pee COMPLETION OF THIS TEST. 

3302 ; BAUD OFFSET INTO [ABLE 
3303 007170 610 ROOSO: .BYTE 010 : 50 0 

3 007171 030 ROO70: .BYTE 030 : 70 1 

3305 007172 050 RO110: .BYTE 050 : 110 2 

3306 007173 070 RO135: .BYTE 070 : 135 3 

3307 007174 110 RO15O: .BYTE 110 150 4 

3308 007175 130 RO300: .BYTE 130 300 5 

3309 007176 150 RO600: .BYTE 150 600 6 

3310 007177 170 RO200: .BYTE 170 : 1200 7 

3311 0072 210 R1800: .BYTE 210 1800 10 

3312 007201 230 R2000: .BYTE 230 : 2000 11 

3313 007202 250 R2400: .BYTE 250 2400 12 

3314 007203 270 R3600: YTE 270 : 3600 13 

3315 7204 310 R4800: .BYTE 310 : 4800 14 

3316 007205 330 R7200: .BYTE 330 : 7200 15 

3317 007206 350 R9600: .BYTE 350 : 9600 16 

3318 007207 370 R10000: .BYTE 370 : 19200 17 

3320 007210 04050 2125 051040 BAUDRATE: -ASC!Z /BAUD RATE DIDN'T CHANGE. / 

3321 007216 052101 020105 044504 

3322 007224 0471 2047 041440 

3323 007232 040510 043516 027105 

3324 007240 

33 007242 EVEN 

3326 007242 NEW 0,0 

3327 007246 000000 000000 OLD: 0,0 

3368 007252 ENDTST 
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3332 DI IIIS III III IOI III IOI III IOI TOTTI TOTO 
3333 IOI III III III IIIT II IIT TT IT TATA SAA 
33 s*TEST 33 TRANSMITTER INTERRUPT LOGIC TEST 
3335 be LOGICALLLY THIS IS 4 SEPARATE TESTS 
3336 ;* A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
3337 ;* B) AT PRIORITY OF 0 
3338 7* C) AND ONLY ONCE 
3339 :* D) BUT NOT WITH INTERRUPT ENABLE CLEAR 
3340 FOI III III III III II II III TTT IAAI ISAS INAS ISA SAIS SSNS ISIS SSSI A 
3341 007252 000004 1§133: SCOPE 
3342 007254 012767 000010 171676 MOV #10. $TIMES 3:D0_10. ITERATIONS 
3343 007262 012767 000033 171710 MOV #33 ,$TESTN 2¢SET TEST NUMBER IN APT MAIL BOX 
3344 * CLEAR "INTERRUPT OCCURED’ FLAG 
3345 007270 LET INTFLAG := #0 
te 007270 005067 002540 CLR INTFLAG 
3348 hy VECTOR ADDRESS 
3349 007274 LET R3 := DLVEC 
3350 007274 016703 171756 MOV DLVEC,.R3 
3351 FOR Hae TRANSMITTER 
3352 007300 LET R3 := R3 + 
3353 007300 062703 000004 ADD #4 ,R3 
3354 ;SET VECTOR TO POINT TO TRANS.SRV AT PRI 
3355 007304 SETVEC R3, #INTSRV, #PR7 
3356 007304 010146 MOV R1,~(SP) 
3357 7 010301 MOV R3,R1 
3358 007310 012721 012026 MOV AINTSRV, (R1)+ 
3359 007314 012711 000340 MOV #PR7,(R1) 
3360 007320 012601 MOV (SP)+,R1 
3361 007322 BGNSUB 
3362 007322 012767 007330 171560 MOV #64$ , $LPERR 
3363 :CLEAR INTERRUPT ENABLE 
3364 73 : LET @TCSR := @TCSR CLR.BY #XMITIE 
$ee7 007330 042777 000100 171726 BIC AXMITIE ,@TCSR 
3367 SET IT TO 0 
3368 007336 012746 000000 MOV #PRO,~(SP) ;;PUT NEW PS ON STACK 
3369 007342 012746 007350 MOV #65$,-(SP) ::PUT NEW PC ON STACK 
3370 007346 000002 RTI >:POP NEW PC AND PS 
3371 007350 65$: 
3372 
3373 zNOW SET I.E. BIT 
3374 007350 LET @TCSR := @TCSR SET.BY #XMITIE 
$352 007350 052777 000100 171706 BIS AXMITIE,@TCSR 
3377 ;LET INTERRUPT HAVE TIME TO OCCUR 
3378 007356 WAITMS 200. 
3379 007356 010546 MOV R5 ,= 
3380 007360 012745 000310 MOV #360. PRS) 
3381 7 04767 002356 JSR PC WAIT 
Sans 007370 012605 MOV (SP) +,R5 
3384 ;DID EXACTLY 1 INTERRUPT OCCUR 
3385 007372 __ IF INTFLAG NE #1 THEN 
3386 007372 C26/27 002436 000001 CMP Ins"FLAG, #1 
3387 007400 001406 BEQ $154 
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3;NO = WAS IT 0 OR MORE THAN ONCE 
IF INTFLAG EQ #0 THEN 
005767 002426 TST INTFLAG 
001002 BNE $155 
; TRANSMITTER DID NOT INTERRUPT IN TIME 
ERRHRD 106, ,DIDNOT 


ELSE 


104106 ERROR 106 
000401 BR $156 
s TWICE 
; TRANSMITTER INTERRUPTED TWICE 
ERRHRD 107,,TWICE 
ENDIF 
ENDIF 


104107 


ENDSUB 
; INTERRUPT WITHOUT INTERRUPT ENABLE SET 
BGNSUB 


012767 007424 171464 #64$ ,$LPERR 
;CLEAR ‘INTERRUPT OCCURED’ FLAG 
; LET INTFLAG := 40 


;CLEAR INTERRUPT ENABLE 
LET @TCSR := @TCSR CLR.BY #XMITIE 
042777 000100 171626 AXMITIE,@TCSR 
sNO_ INTERRUPTS SHOULD OCCUR. 


012746 000000 #PRO,-(SP) ;sPUT NEW PS ON STACK 
012746 007450 MO #65$,-(SP) 7zPUT NEW PC ON STACK 
000002 :sPOP NEW PC AND PS 


;DARE IT TO HAPPEN 
WAITMS 2 


005067 002404 INTFLAG 


34 
% 
34 
%4 
34 
4 
34 
4 


aad onl anh oat malt anh atl cael a al 
SOUONAUSWRHO 


EEFEERE 
mrn 


010546 R5,-(SP) 
012745 000002 #2,-(R5) 
004767 002264 PC,WAIT 
012605 (SP)+,R5 


005767 002344 INTFLAG 
001401 $157 


IF INTFLAG NE #0 THEN 


; INTERRUPT OCCURED WITH I E CLEARED 
ERRHRD 110,NOTENAB 


ENDIF 
BRE SET 


ENDSUB 
“RESTORE VECTOR AREA 
CLRVEC R3 
R1,-(SP) :zPUSH R1 ON STACK 
7¢PUSH R2 ON STACK 


104110 110 


000603 
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062702 000002 #2,R2 

010221 “eo 
(SP)+,R2 3sPOP STACK INTO R2 

012601 (SP)+,R1 ;sPOP STACK INTO R1 


ENDTST 
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SRR KR EKER EKER REE EERE REE RE REE E RE RREKEREKEKEKKEKERKEK 
TIAA ISOC SI OIAIAII EIEIO OUI III IIIT TTT TT TE 


TATEST 34 RECEIVER INTERRUPT LOGIC TEST 

i* THIS TEST COVERS ALL _OF THE RECEIVER 

is SIDE OF THE INTERRUPT LOGIC, BOTH DATASET 
i* AND CHARACTER MODES. 

18 


SOIC ICIS ICIS ICO IOI IORI IIIT I TOT TI OT TOT TI TOT TT ST TI TST TTT TT ST TST OT TIE 
TST34: SCOPE 
000010 MO #10,$TIMES 3;D0_10_ ITERATIONS 
000034 #34 ,$TESTN ;3SET TEST NUMBER IN APT MAIL BOX 
;CLEAR_ INTERRUPT OCCURED FLAG 
7SET UP RECEIVER_INTER. VECTOR 
SETVEC DLVEC,#INTSRV,APR7 


R1,-(SP) 
171506 


DLVEC,R1 
012076 AMINTSRV, (R1)+ 
000340 #PR7,(R1) 
(SP)+,R1 
;PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
BGNSUB 


007570 171320 #64$,$LPERR 
002240 INTFLAG 


LET INTFLAG := 40 


SET MAINT. BIT 
LET atcsh := @TCSR SET.BY #MAINT 


;CLEAR INTERRUPTS 
LET @RCSR := @RCSR CLR.BY #RCVRIE 


ey PRIORITY 
012746 000000 #PRO,-(SP) + PUT NEW ps! ON STACK 


012746 007622 #65$,-(SP) sPUT NEW PC ON’ STACK 
000002 +: POP NEW PC AND PS 


052777 000004 171462 AMAINT ,@TCSR 


042777 000100 171450 #RCVRIE,@RCSR 


;SEND A CHARACTER 
LET @TBUF :B= #0 


“WAIT A MAXIMUM 
:0F 500 MSEC FOR 
‘RCVR RDY TO SET IN RCSR 
CALL TIMER IN #500, ARCVRDONE ,RCSR,#SET> 


171442 a TBUF 


R5,-(SP) 
177777 #SET, mee 
171420 ' RCSR,-(R5)* 
000200 #RCVRDONE ,~(R5) 
000500 #500,-(R55 
001614 PCT] MER 

(SP) +,R5 


elelelelelele) 
-—O—- 3 Ss 


;SET INTERRUPT ENABLE 
LET @RCSR := @RCSR SET.BY #RCVRIE 


;LET IT COME IN, 
007664 WAITMS 1 
007664 010546 R5,-(SP) 


007656 000100 171374 #RCVRIE ,@RCSR 
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3513 007666 012745 000001 MOV #1,-(R5) 
3514 ,007672 004767 002050 JSR PC,WAIT 

3515 #007676 012605 MOV (SP)+,R5 
3516 007700 


017700 171356 MOV @RBUF ,RO 


LET RO := @RBUF ; CLEAR RCVRDONE 


DID HE DO IT RIGHT? 
IF INTFLAG NE #1 THEN 
026727 002124 0060001 
001406 
sNONE OCCURED 
IF INTFLAG EQ #0 THEN 
005767 002114 
001002 
sRECEIVER DID NOT ee”? IN TIME 
ERRHRD 111,,DIDNO 


TWICE OR MORE 
ELSE 


104111 


000401 


sRECEIVER INTERRUPTED TWICE 
ERRHRD 112,,TWICE 


ENDIF 
ENDIF 


104112 


RESET MAINT. BIT. 
LET @TCSR := @TCSR CLR.BY AMAINT 


; CLEAR INTERRUPT ENABLE 
LET @RCSR := ARCSR CLR.BY ARCVRIE 


ENDSUB 


042777 000004 171326 4#MAINT ,@TCSR 


042777 000100 171314 ARCVRIE,@RCSR 


PRIORITY O AND ee TEST.-DATAIE 
012767 007752 177 #64$,$!PERR 


IF #CABLE NOTSETIN SUSWR THEN 
032767 020000 #CABLE , $USWR 
001004 $163 
:CAN'T TEST WITHOUT A CABLE 


~ EXIT T 
012767 000001 1; #1,$TIMES 
009466 TST35 SgsENTT Has | 
N 


; CLEAR "INTFLAG* 
LET INTFLAG := #0 
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005067 002036 INTFLAG 

sCLEAR INTERRUPTS 
LET @RCSR := @RCSR CLR.BY #DATAIE 

3 CHANGE PRIORITY 

012746 000000 #PRO,-(SP) :zPUT NEW PS ON STACK 

012746 010016 #64$,-(SP) ::PUT NEW PC ON STACK 

000002 ‘:POP NEW PC AND PS 

LET @RCSR := ARCSR CLR.BY #REQSEND 


SET INTERRUPT ENABLE 
LET @RCSR := ARCSR SET.BY #DATAIE 


LET @RCSR := A@RCSR SET.BY #REQSEND 


LET IT COME IN. 
WAITMS 1 


042777 00040 171254 MDATAIE ,@RCSR 


042777 000004 171234 #REQSEND ,@RCSR 


052777 00040 171226 ADATAIF ,ARCSR 
052777 000004 171220 #REQSEND ,arCSR 


010546 R5,-(SP) 
012745 000001 #1,-(R5) 
004767 001674 PC WAIT 

012605 (SP)+,R5 


;_ DID IT DO IT RIGHT? 
IF INTFLAG NE #1 THEN 
026727 001754 INTFLAG,#1 
061406 $164 
NONE OCCURED 
IF INTFLAG EQ 40 THEN 


005767 001744 INTFLAG 
001002 $165 


:DATAINT DID_NOT INTERRUPT IN TIME 
.  ERRHRD 113,,DIDNOT 


TWICE OR MORE 
ELSE 


104113 113 


000401 


; DATAINT INTERRUPTED TWICE 
ERRHRD 114,, TWICE 


ENDIF 
ENDIF 
LET @RCSR := @RCSR CLR.BY #DATAIE 
LET @RCSR := @RCSR CLR.BY #REQSEND 
ENDSUB 


LET R&4 := @DLVEC 
017704 171136 @DL VEC ,R4 
RVEC _R4 


CL 
010146 R1,-(SP) 3.PUSH R1 ON STACK 


104114 


042777 000040 171152 ADATAIE,aRCSR 
042777 000004 171144 AREQSEND ,aROSR 


AA AAAAAS 
FRS888888 


eee 
-—OO0ONAUSWN-O 
oooo0o BOOCOOCOOCSCOO 
~— 3 ee ek eed od od od 
SOOO BDOCOCOCOCOOO 


Ree 
SWI 
_~— 
Nn — 
OOskk HK 
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010246 R2,-(SP) :zPUSH R2 ON STACK 
0 000004 #RE,R1 


R1,R2 
#2,Re 
R2,(R1)+ 
(R1) 


SEQ 0087 
000002 


(SP)+,R2 3sPOP STACK INTO R2 
(SP)+,R1 3;POP STACK INTO R1 
ENDTST 
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3634 FRR RRR KERR KERR EKER RRR REE 
SL ARERR RR ER EEE REKREEERER RR EE KEKE EREKREEEREEREK 
:STEST 35 TEST ACTUAL DATA TRANSFERED 
NON-INTERRUPT MAINTENANCE BIT SET 
MASA RASeSeSi Sass SSRESASZASLALSLESLESLSSESLA SLOSS SSAe SS SSeS SSS SE So 
000 18135: SCOPE 
012767 000001 171002 MOV #1,$TIMES ::D0 1 ITERATION 
012767 000035 171014 #35, ,S$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
:SET MAINT. BIT 
LET aTCSR := aTCSR SET.BY #MAINT 
052777 000004 171072 AMAINT ,aTCSR 


; CHANGE PRIORITY 
012746 000000 #PRO,-(SP) PUT NEW PS ON STACK 
012746 010204 #64$,-(SP) PUT NEW PC ON STACK 
000062 ::POP NEW PC AND PS 
GET DATA MASK. 
CALL DATLNG OUT <R1> 
162705 000002 #1*2,R5 
0 004767 001432 PC, DATLNG : 
010214 012501 (R5)+,R1 
‘ ; START CLEAN 
010216 LET RO := @RBUF 
010216 017700 171040 @RBUF ,RO 


;ALL BINARY CHAR. 
010222 INCR R2 FROM #0 TO #377 BY #1 
005002 


R2 
000401 BR $167 
005202 4 R2 


020227 000277 j R2,4377 
$171 


; TRANSMIT CHAR IN R2 


re CALL TIMER IN <#500,#XMITRDY,TCSR,#SET> 
177777 ! #SET,-(R5) 
TCSR,-(R5) 
AXMITRDY,-(R5) 
#500,-(R5) 
001204 PC, TIMER 
(SP) +,R5 


ANSMIT IT 
LET STBUF :B= R2 
170776 \ R2,@TBUF 
CALL TIMER IN <#500,#RCVRDONE ,RCSR ,#SET> 


MOV RZ = (SP) 
177777 MSET,-(R5) 
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016745 170754 RCSR,-(R5) 
000200 A#RCVRDONE ,=(R5) 
900500 #500,-(R5) 
001150 PC, TIMER 
010320 012605 (SP)+,R5 
sAND SAVE IT 
@RBUF 


010322 LET R3 := 
010322 017703 170734 @RBUF ,R3 


; COMPARE TO SEE IF WE RECEIVED IT ALL 


:CLEAN OFF NON-DATA BITS 
*ON BOTH TRANSMITTED AND 
010326 LET R4 := R2 CLR.BY R1 
010204 R2,R4 
040104 R1_-R4 
LET R3 := R3 CLR.BY R1 
040103 R1,R3 
sRECEIVED DATA 
IF R4 NE R3 THEN 
020403 R4,R3 
001405 $172 
DATA COMPARE ERROR 
ERRHRD 116, COMP, SBWAS 


EXIT TST ; ON ERROR 


104116 ~ 116 
012767 000001 170610 #1,$TIMES 


000404 B TST36 3ecEXIT THIS TEST 
ENDIF 


ENDINC ; Re 
000725 


RESET MAINT. BIT 
LET atCSR := @TCSR CLR.BY #MAINT 


ENDTST 


042777 000004 170702 4MAINT ,aTCSR 
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FARRAR REAR EREEREE EKER REREEEEEREERERERRERERREKEREREREERREREKE KEE 
TBARS IOISIIOISIEICI SII IIA III IEICE IOSD 
TRTEST 36 TEST DATA THROUGH CABLE 
—MmASAAAAASAAALALALASLASASALAAALEES ESE LES ESE ESET SCTE CEES c cee eee ae 
+8136: SCOPE 
170566 MOV #1,STIMES : 20 1_ ITERATION 
012767 000036 170600 MOV #36, STESTN SET TEST NUMBER IN AP 


IF ACABLE NOTSETIN SUSUR THEN 
032767 020000 170612 BIT ACABLE , SUSWR 
001004 BNE $175 

3 TEST WITHOUT A CABLE 


EXIT T 
012767 000001 170542 MOV #1,$TIMES 
000474 BR TST37 sizEXIT THIS TEST 
ENDIF 
:DON'T USE MAIN 
LET @TCSR := aTCSR CLR. BY AMAINT 
; CHANGE PRIORITY 
012746 000000 #PRO,-(SP) ::PUT NEW PS ON STACK 


012746 010440 #64$ ,-(SP) 7sPUT NEW PC ON STACK 
000002 ;:POP NEw PC AND PS 


042777 000004 170636 #MAINT ,ATCSR 


:GET DATA MASK 
CALL DATLNG OUT <R1> 
162705 000002 #1*2,R5 
004767 001176 PC,DATLNG 
012501 (R5)+,R1 


017700 170604 @RBUF ,RO 


LET RO := @RBUF ; START CLEAN 


;BINARY COUNT PATTERN 
INCR R2 FROM #0 TO #377 BY #1 

005002 R2 
000401 $174 


005202 = R2 


020227 000377 > R2,4377 
003047 $176 


; TRANSMIT THE CHAR. IN R2. 


RS.-(SP) CALL TIMER IN <#500,4XMITRDY, TCSR,#SET> 
177777 #SET, -(R5) 
170560 
000200 
000500 
090750 


lelelelelelelela) 


4 ss 
SSSZSPRS 
BRSRSAAN 


(SP)+,R5 


START IT ON ITS WAY 
LET itpur :B= R2 


So 
— 
oS 
Ww 
ins) 
iat) 
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obese 110277 170542 R2,aTBUF 


010546 R5,-(SP) 
0 177777 #SET,-(R5) 
170520 RCSR,-(R5) 
000200 ARCVRDONE ,-(R5) 
000500 #500,-(R55 
67 000714 PC, TIMER 
010554 012605 (SP) +,R5 


CALL TIMER IN <#500,4RCVRDONE ,RCSR,#SET> 


010556 LET Ae 12 SRBUF 
010556 017703 170500 @RBUF .R3 ae 


. STRIP OFF JUNK ON BOTH 
010562 LET R4 := R2 CLR.BY R1 
010204 R2,R4 
040104 R1,R4 


LET R3 := R3 CLR.BY R1 
040103 R1,R3 


Soares 


WE HAVE TROUBLE 
010570 IF Ri NE "RS THEN 
010570 020403 MP R4,R3 


010572 001405 $177 
:DATA COMPARE ERROR 
010574 ERRHRD 117,COMP,SBWAS 


104117 117 

EXIT TST ; ON ERROR 
012767 000001 170354 #1, $TIMES 
000401 TST37 7cEXIT Pals TEST 


38 
38 
38 
38 
38 
38 
38 
38 
38 


anh ae aad an aa antl ath ah od 
OONAUFSWR—O 


88 
oo 


ENDINC ; R2 


ENDTST 
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3883 010702 


3888 
3889 010712 


VA-8 


000004 
012767 
012767 


032767 
(01404 


012767 
000550 


162705 
767 
012503 


012746 
012746 


016701 


012721 
012721 


012721 
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000001 
000037 


000001 


000001 


000002 
000770 


000000 
010672 


170360 


011072 
000340 


011030 


170360 


170314 


TEST DATA THROUGH CABLE 


FERRER EREREREEE REAR RRA 
FERRER RKERERERARERAEREEREREKREEKEKEKEAERAEEREREREKRKREKKEEKREREKEE 


{TEST 37 


18137: 


$200: 


64$: 


SCOPE 
MOV 
MOV 


BIT 
BEQ 


MOV 
BR 


SUB 
JSR 
MOV 


FULL DATA TRANSFER WITH INTERRUPTS 
AND MAINTENANCE MODE. 


s epnoenenessensssannnnenanacsnusnessaenbeanennbaseuetotndniohs 


#1, STIMES 
#37 , STESIN 


;;DO0_1_ITERATION 


t:SET TEST NUMBER IN APT MAIL BOX 


; THIS ae" IS_ "BREAK OR 


MAPTENV, SENV 
$200 


#1,$TIMES 
TST40 


#1*2,R5 
PC‘ DATLNG 
(R5)+,R3 


. 

4 
P 4 
foe 
nn 
+ 
mn 
n” 
a" 
= 
bee 
_ 
ze 
wn 


F MAPTENV SETIN 


EXIT TEST 


rn 
x 


CALL DATL 


A MAXI 


; CHARACTERS THROUGH THE MODULE, 
; IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 


#PRO,-(SP) 
#64$,-(SP) 


DLVEC,R1 


AREC,(R1)+ 
#PR7,(R1)+ 


#7PAN, (R1)+ 


IT THIS TEST 


HALT’ SINSATIVE. 
SENV THEN 


;GET DATA MASK 
NG OUT <R3> 


THIS TEST WILL RUN BOTH TRANSMITTER AND 
RECIEVER AT FULL SPEED TESTING 
THE ABILITY OF THE MODULE 
TO HANDLE INTERRUPTS FROM BOTH SIDES 
AT ONCE. ALSO, THE DOUBLE BUFFERING LOGIC 
OF THE UART WILL BE any TESTED. 


MUM OF 400(8) 
BUT IF AN ERROR 


CHANGE PRIORITY 
;..10 0 


::PUT NEW PS ON § 
+=PUT NEW PC ON 
::POP NEW PC AND 


o2t@ 
TACK 
STACK 
PS 


GET VECTOR ADDRESS 


LET R1 := 


LET (R1)+ 


LET (R1)¢+ := 


DLVEC 


;RCVR VECTOR 


:= AREC 
#PR7 


:POINT TO TRANSMITTER VECTOR 


LET (R1)+ 
LET (R1) 


AND SET IT UP ALSO 
:= ATRAN 


= #PR7 


SEQ 0092 
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010712 012711 000340 MOV #PR7,(R1) 
3 INITIALIZE COUNTERS 
010716 LET R1 := #1 
010716 012701 177777 #-1,R1 
ZRECEIVER STORAGE 
010722 LET R2 := #0 
010722 005002 R2 
34 OF RECEIVED CHAR. COUNT. 
010724 : LET R4 := #-1 
010724 012704 177777 #-1,R4 
; CLEAR ERROR COUNT. 
010730 LET ERRCNT := #0 
010730 005067 000066 ERRCNT 
010734 BRESET ;SET UP ALL REGISTERS 
010734 000005 
;SET UP MAINTENANCE 
010736 LET @TCSR := @TCSR SET.BY #MAINT 
010736 052777 000004 170320 AMAINT,@TCSR 
;SET I.E. IN TRANSMITTER 
010744 LET aTCSR := @TCSR SET.BY #XMITIE 
010744 052777 000100 170312 AXMITIE,aTCSR 
;AND RECEIVER 
010752 LET @RCSR := ARCSR SET.BY #RCVRIE 
010752 052777 000100 17030¢ ARCVRIE ,@ARCSR 
;NOW WE WAIT UNTIL R4 COUNT (RECEIVED) IS EQUAL 
REPEAT 
UNTIL R4 EQ NUMBER OR ERRCNT GT 40 
000040 


000030 


DATA COMPARE ERRORS. 
IF ERRCNT NE #0 THEN 


005767 ERRCNT 
001401 $203 


;DATA COMPARE ERROR 
ERRHRD 120,COMP,FIRST 


ENDIF 


104120 120 


LFT @TCSR := @TCSR CLR.BY #XMITIE 
LET @RCSR := @RCSR CLR.BY #XMITIE 


Se 8888 8 


000100 170252 ‘ #XMITIE ,@TCSR 
000100 170240 AXMITIE ,@RCSR 


oo 
—— 
Mon 


EXIT :SKIP OVER SUPPORT ROUTINES & STORAGE 





D 
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011020 000462 BR TST40 3ecEXIT THIS TEST 
011022 000000 ERRCNT: 0 
000400 NUMBER: 400 


000 SB: -BYTE 0 
000 WAS: -BYTE 0 


DIK RRR KR RRR RRR RE KR REE KEKE KKK KKK 


; TRANSMIT INTERRUPT HANDLER 
BGNSRV_ TRAN 
TRAN: 
FI RT HH RR KR K EKER IK 
; INCREMENT CHAR COUNT 
0 T R1 := R1 + #1 
011030 005201 INC R1 
SET A FOR TRANSFER 


011032 LET HOLD := R1 CLR.BY R3 
011032 010167 000030 MOV R1,HOLD 
011036 040367 000024 BIC R3,HOLD 


sAND SEND. 
011042 LET @TBUF := HOLD 
011042 016777 000020 17022C MOV HOLD, aTBUF 


ALL DONE 
011050 IF Rl EQ NUMBER THEN 
011050 020167 177750 CMP oe 


011054 001003 BNE 
:STOP___ INTERRUPT PROCESSING 
011056 LET @TCSR := @TCSR CLR.BY #XMITIE 
011056 042777 000100 170200 AXMITIE,@TCSR 
011064 ENDIF 
011064 $204: 
011064 000401 222 ; EXIT SRV 
011066 000000 HOLD :0 


011070 : ENDSRV 
611070 000002 RTI 


DO Rt RIK EK REE RE RK RR Re 


RECEIVER INTERRUPT HANDLER 
011072 BGNSRV REC 
011072 REC: 


FRR RRR EER ERR RRR EERE RRR ERR REE K EER 


;COUNT THIS CHAR, 
011072 LET R4 := RG + #1 


011072 INC 
GET CHAR IN + MASK IT 
011074 LET 82 := @RBUF CLR.BY R3 
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oOo0O CO 


ee 
Mmm MMM 2? 


pon Po per oe Ee PP ee 


— SS — od 2) ed —_ = os 
— = od od eed ed ed ed ed 


LHRH LL 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


— — 2) 


oo oo Goo 
— — —2 —_— 3 
— — = — 23 
— 3 —) ond — —) 
On WW WSL 
oO mwnm Off 


011160 
011162 


011166 


VA-8 


017702 
040302 


010467 
040367 


020267 
001412 


005767 
001005 


116767 
110267 


005267 


020467 
001003 


042777 


000401 
000000 


000002 


170162 


000054 
000050 


000044 


177676 


000030 
177667 


177656 


177654 


090100 
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177672 


170100 


15:14 PAGE 97 
FULL DATA TRANSFER WITH INTERRUPTS 


MOV @RBUF ,R2 
BIC R3,R2 


MOV R4,RHLD 
BIC R3,RHLD 


CMY R2,RHLD 
BEQ $205 


TST ERRCNT 
BNE $206 


MOVB 
MOVB 


RHLD,SB 
R2,WAS 


ERRCNT 


R4 ,NUMBER 
$207 


#RCVRIE ,@RCSR 


sRHLD WILL CONTAIN EXPECTED INPUT 
LET RHLD := R4 CLR.BY R3 


;DO_THEY COMPARE 
IF Ro NE RHLD THEN 


sFIRST ERROR 
IF ERRCNT EQ #0 THEN 


;SAVE RECORD OF FIRST MISS 
LET SB :B= RHLD 
LET WAS :B= R2 

ENDIF 


;COUNT IT. 
LET ERRCNT := ERRCNT + #1 
ENDIF 


;ALL DONE? 
IF R& EQ NUMBER THEN 
;STOP RECEIVER INTERRUPTS 
LET @RCSR := ARCSR CLR.BY ARCVRIE 
sMAIN REPEAT LOOP IS CHECKING 
ENDIF 
sFOR "R&4 = NUMBER’ ALSO . 
EXIT SRV 
RHLD :0 


ENDSRV 


ENDTST 





Rar ett CVDVA-8 1 30A(1052) aah 15:14 PAGE 98 
CVDVA 23-AUG-78 15: 137 FULL DATA TRANSFER WITH INTERRUPTS 


SRR RRR REE EKRKR KR KKREKREKREREEKERERKEK KKK 
Ati e eee eee eee sete saaasas ici cise tices esas e seca see ere eee eee a ge! 
TEST 40 TEST BREAK GENERATION LOGIC 
RANSMIT KNOWN CHAR WITH BREAK SET 
AND COMPARE RECEIVED WITH 0. 
Wwe ASSL AREESEEASESALASASALEAESESESES SESS ESSERE ES ES SSR SES SESS SG 
000004 SCOPE 
012767 000010 167762 MOV #10, STIMES ::D0_ 10. ITERATIONS 
012767 000040 167774 MOV = #40, STESTN SET TEST NUMBER IN APT MAIL 


BOX 
IF #BRK NOTSFTIN $USWR THEN 
032767 010000 170006 BIT ABRK , $USWR 
001004 BNE $210 


: EXIT TST 
012767 000001 167736 MOV #1,$TIMES 
000452 , BR TST41 


>;cEXIT THIS TEST 
ENDIF 


SET MAINTENANCE BIT 
LET @TCSR := @TCSR SET.BY AMAINT 


oO BDOOCOOCOCOCOCOOCOO 
i tt ad ch ce eee cl cd et eh ee ch 
RR er ee er 


RR RRVERVRRASK 


052777 000004 170032 AMAINT ,aTCSR 
; CLEAR RCVRDONE JUST IN CASE 


LET RO := @RBUF 
017700 170024 ARBUF ,RO 


SET BREAK BIT 
LET @TCSR := aTCSR SET.BY ABREAK 


NON-ZERO CHAR. ‘*' 
LET aTBut := #252 


CALL TIMER IN <#500,4RCVRDONE .RCSR,#SET> 


052777 000001 170020 ASREAK ,@TCSR 


012777 000252 170016 #252, aTBUF 


010546 R5,-(SP) 
177777 ASET,-(R5) 
RCSR,~-(R5) 
#RCVRDONE ,~(R5) 
#500,-(R5) 
at TIMER 
012605 (SP) +,R5 


103001 $211 


IF .ERROR THEN 


; RECIEVER DONE DID NOT SET 
ERRHRD 115 


ENDIF 


RR 


104115 115 


— — oe = od 2 od oe) Ls) —) ~~ 


IFB @RBUF NE 40 THEN 
105777 167750 
001401 
BREAK DID NOT EQUAL 0 
ERRHRD 121 ,BADBRK 


ENDIF 


104121 


0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


par er a os 
—s 
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T40 TEST BREAK GENERATION LOGIC 


BRESET ;CLEAN UP 
RESET 


EXIT 
BR sz EXIT THIS TEST 
geet? BADBRK: .ASCIZ /BREAK DID «JT EQUAL 0/ 


040525 


lelelelelelele) 


020114 000060 
ENDTST 
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016746 
104405 
005067 
000167 


MACY11 
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000001 
011366 
167652 


011412 


167626 
011440 


167434 


167426 
170254 


statins 


167600 


H 8 
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TEST BREAK GENERATION LOGIC 


FRI RR I IIH ITI I TTT TOTTORI TOTTI TOR TOT TO IK kt 


NOT A TEST - SEND BACK TO LOOP 


BRI IR RT TT RK TH TI ITT TTT TO TTR TTT RI RK KI 


Pas 
:STEST 41 
r8T41: SCOPE 

MOV 
TYPE 
BR 
7:65$: .ASCIZ 
64$: 
MOV 
TYPOC 
TYPE 
BR 
326762 .ASCIZ 
663: 
MOV 
TYPOC 
TYPE 
BR 
22696: ,ASCIZ 
68$: 
MOV 
TYPDS 
CLR 
JMP 


#1, $TIMES 
,65$ 


64$ 
<CRLF>*CSR: 
DLADD ,-(SP) 
,07$ 
66$ 
*, VECTOR: * 
DLVEC ,-(SP) 


,09$ 

68$ 

*, ERRORS: * 
SERTTL ,-(SP) 
SERTTL 


il? 


32;D0 1 ITERATION 
32TYPE ASCIZ STRING 
7;GET OVER THE ASCIZ 


A mt | FOR TYPEOUT 
3:GO_TYPE=-OCTAL ASCII(ALL DIGITS) 
3zTYPE ASCIZ STRING 

::GET OVER THE ASCIZ 


3sSAVE DLVEC FOR TYPEOUT 

:2G0 ys oes ASCII(ALL DIGITS) 
7s TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 


;:SAVE SERTTL FOR TYPEOUT 
3:G0 TYPE=-DECIMAL ASCII WITH SIGN 
; RESET FOR NEXT DEVICE/PASS 

BACK UP 'O THE BEGINNING 


SEQ 0098 


I 
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SUBS 


DG A UISISISIIISISISISIIIOII ISIS NIEIOIII ISIS III IIE 


ROUTINE TIMER <HOWLONG,WHICHBIT,REG,SETCLR> 


TIMER 
ROUTINE : TIMER 
THIS ROUTINE IS — TO TEST THE STATUS OF ANY BIT 
fre he REGISTER 
HOWL ONG wistante OF TIME TO SPEND IN 
WHI CHBIT A MASK WITH THE BIT(S) SET THAT ARE 
TO BE CHECKED. 
REG A POINTER TO THE REGISTER TO BE CHECKED 
SETCLR THE DESIRED RESULTS 
EITHER #SET OR PCLEAR 
OUTPUT: 
THE 'C' BIT IS SET TO INDICATE AN ERROR 
BUT IT IS TESTED BY THE IF.ERROR STATEMENT 


NOTE:: THE USE OF (R5) IS PART OF THE LINKAGE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 


SRR EERE EEE ARERR AREER REAR REEEERERERARRERRER KE 


000001 TRUE= 1 
000000 FALSE= 0 


LET REGSAV := REG(R5) ; GET POINTER TO REGIST 
LET TIMSAV := HOWLONG(RS) ; “SAVE HOWLONG FOR 
LET FLAG :B= MFALSE ; INITIALIZE THE EXIT FLA 


016567 000004 000136 REG(R5S) ,REGSAV 
016567 000000 900132 HOWLONG(R5) , TIMSAV 
112767 000000 600126 MFA'SE,FLAG 


START OF AN INFINITE LOOP 


— 2 


:; TEST TO SEE _IF WHI Tio IS 


C 
WHICHBIT(RS) NOTSET aRECSAV THEN 


036577 000714 WHI CHBIT(R5) ,@REGSAV 
001004 $217 


HOLDSC :B= CLR 
112767 000111 ; ACLR,HOLDSC 


000403 $220 


HOLDSC :B= #SET ; REMEMBER THIS 
112767 177777 #SET,HOL DSC 


OOOOCOOOOCOOO CO 
ee eed ee ee ad ed eed eed ed ed ed ad od 
es 8 ed ad et od ows 

ADAMNAAAAAGIAII IU 
SSWAAWAPOPON Rm SO 
OONMNMNOONMNMON!PW NM 


NOW SEE IF THAT WAS WHAT WE WANTED 
HOLDSC EQ SETCLR‘RS) THEN 








J 
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126765 000075 000006 CMPB HOLDSC ,SETCLR(R5) 
001003 BN $221 
; JUST THE Meaty | WE NEEDED 
' LET FLAG :B= #TRUE 
112767 000001 000062 #TRUE ,FLAG 


$221: 


ENDIF 


EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 


Cn ARAOO BO 


126727 900056 000001 MPB — 
000044 TIMSAV 
$216 


SoCoCoOoO CCOO CO 


— 3 —) ss ~~ — 


NO 
MO 


003411 
ONE WAY OR THE OTHER, WE ARE DONE 
: IF We ARE STILL HERE THEN HANG AROUND A WHILE 


WAITMS 1 ;WAIT FOR 10 MILLI-SECONDS 
010546 R5,-(SP) 
912745 900001 #1,-(R5) 
004767 000140 PC WAIT 
013605 (SP) +,R5 


005367 000022 TIMSAV 
000736 $215 


WIV 
SSN 


LET TIMSAV := TIMSAV = #1 ; COUNTING DOWN 
ENDLOOP ; CONTINUED AT THE TOP 


lelelelelelelelele!e) 
6 eb a oh and a ed ed 
ae ee ee er ee 
RAAAAO 


and aad oe cd aed 
AanRLOO 


; ONLY 2 WAYS TO GET HERE 


1). WE RAN OUT OF TIME=--ERROR ! ! 
2). THE BIT IS IN THE CORRECT CONDITION--GOOD ! ! 


IFB FLAG EQ #TRUE THEN 
126727 000016 FLAG, ATRUE 
001001 $22? 


000405 $213 


NMn—— 


RXAXAO 
SOSOOAXA KAW 


RETURN NO.ERROR : GOOD 
ENDIF 
RETURN ERROR : BAD 


WWAG 


000261 
000404 


006000 REGSAV: .WOR 
000000 : .WOR 
.BY YT 
HO : ,BYT 
; WE ARE — mA BACK HOME - 


AO et ye oie pe yg 


ee ce me ec ed ed ed od eed ed ced od 
ee Nh 
NM 


a Y — 3 ss — ts SS os YS 


SOO0O0 BDOOO BDOODOCOCCOC0OO 
—~ — = od ee 


RAFFF FF 
RRMNN =O 
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CORI I III IOI III TORII III III III IOI TOIT IOI TOIT tt 
ROUTINE DATLNG <MASK> 
DATLNG: 
3* ROUTINE :DATLNG 
THIS ROUTINE SETS UP A MASK FOR DATA, WITH 
INPUT = NOTHING IS PASSED TO THIS ROUTINE 
BUT GLOBAL INFORMATION IS ASSUMED TO EXIST: 
SUSWR=- THE WORD FOR SOFTWARE PARAMETERS 
DATA== A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 
OUTPUT =---= 
MASK=~ A MASK OF BINARY ONES RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN $USWR WORD. 


PRR RRR RRR RK RRR EK KERR KR KEKE REE RE 


Se 


ee ee ee ee 
+ eee eee H HF 


LET MASK(R5) := #0 
LET NUMBR := $USWR AND #DATA 


005065 000000 MASK (R5) 


016767 167342 000062 SUSWR , NUMBR 
000056 NUMBR , = (SP) 
000017 #DATA, (SP) 

042667 000046 (SP) +,NUMBR 


INCR I FROM #1 TO NUMBR BY #1 
012767 000001 167370 #1,1 
000402 $225 


_ 005267 167362 
10 


026767 167356 000024 1 ,NUMBR 
003006 $327 


LET MASK(RS) := MASK(RS) SHIFT #1 
LET MASK(RS5) := MASK(RS) SET.BY #1 
END INC 


006365 000000 MASK (R5) 
052765 000001 000000 #1 ,MASK (RS) 
000764 $226 


LET MASK(RS) := COMP MASK(RS5) 
005165 MASK (R5) 


000401 BR $223 
000000 : 
ENDRTN 


RERRERR AVA 


FERRER EW 
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012024 


010146 
010246 
010346 
016501 


012702 
000402 


062702 


020201 
101010 


005003 
000401 


005203 


020327 
003001 


000773 


000764 
012603 


012602 
012601 


000207 


MACY11 cattichdoaal™ 


000000 
000001 


000001 


000100 


L 8 
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OUTINE - DATLNG 


IAI III III III IITA ATT AAS AISA IASI ASIII IIIS AISI AAAI SINAN 
ROUTINE WAIT <TIME> 
WAIT: 
3* ROUTINE: WAIT 
THIS i i USED TO DELAY EXECUTION OF THE 
MAIN PROGRAM E D AMOUNT OF TIME. 
THIS . INCREMENTING A 
REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MILLI SEC. 


DR RRR RRR KERR RR KR KR RRR KR RKTT RIK IK 


:zPUSH R1 ON STACK 
7¢PUSH R2 ON STACK 
::PUSH R3 ON STACK 

MOV E (RS) ,R1 

INCRU R2 FROM #1 TO R1 BY 41 

MOV #1,R2 

$232 

#01,R2 

R2,R1 

$234 

INCR R3 FROM #0 TO #100 BY 41 

$235 

R3 

R3,4100 

BGT $237 

END INC 

BR $236 

END INC 

R 


$237: 
$233 
MOV (SP) +,R3 3zPOP STACK INTO R3 


MOV (SP)+,R2 3sPOP STACK INTO R2 
V (SP)+,R1 :sPOP STACK INTO R1 


$234: 


ENDRTN 
$230: 
$231: 
PC 


SEQ 0102 
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012026 


012026 
0 005267 000002 


000002 
012034 000000 


mM 8 
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ROUTINE = WAIT 


-SBTTL INTSRV INTERRUPT SERVICE ROUTINE 


WeASSAS SSR SAESSA LESSER AREAS ALE SELES ESE SE SSE RSS ER REE TPC CSP SS oS eG 


INTSRV: 

3* SERVICE ROUTINE: INTSRV 

7* THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 
:* "INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
:* THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
;* TO LOOK FOR 


e eo 
CD REE KEKE REAR KERR KEKE EKER ERK REE KEK 


;ADD 1 TO ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG := INTFLAG + #1 
INC INTFLAG 


ENDSRV 3 THAT'S ALL 
RTI 
:NTFLAG: O 


SEQ 0103 
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012036 ROUTINE MYTYPE 
MYTYPE: 


viaeaiate FDR RII IIIT IOS IIIS AIA IIASA ISSA ISAS SNS I SIA ISIS IIS IIIA IASI SSASSAA AM 
012036 104401 TYPE ,65$ 7s TYPE ASCIZ STRING 
012 000405 BR 64$ 33GET OVER THE ASCIZ 
TS a eASCIZ <CRLF>*TEST # * 
016746 167116 ‘ MOV $STESTN,-(SP) 23 SAVE $TESTN FOR TYPEOUT 
TYPOC :GO pene ook ASCIICALL DIGITS) 
012072 TYPE .67$ 7: TYPE ASCIZ STRING 
BR 66$ 72GET OVER THE ASCIZ 
-ASCIZ *,ERROR # * 


66$: 
167004 167064 MOVB SITEMB,SFATAL ; APT FATAL ERROR NUMBER 
167060 MOV $FATAL ,~(SP) ; s SAVE $FATAL FOR TYPEOUT 
TYPOC 2G9 a acid atk ASCII(ALL DIGITS) 
012126 TYPE 7: TYPE ASCIZ STRING 
hecis $ 3-GET OVER THE ASCIZ 


016746 166754 MOV . SAVE SERRPC FOR TYPEOUT 

104402 TYPOC : 60 a atcae cik ae DIGITS) 
104401 012152 TYPE SETYPE ASCIZ STRING 

000404 Merit :2GET OVER THE ASCIZ 


016746 167066 MOV DLADD ,-(SP) SAVE DLADD FOR TYPEOUT 
104402 TYPOC :iG0 an Poy gt! ASCII(ALL DIGITS) 
104401 012176 TYPF 73$ io ASCIZ STRING 
000405 BR 2$ GET OVER THE ASCIZ 
;;73$: .ASCIZ *,VECTOR: * 


72$: 
016746 167042 MOV DLVEC,-(SP) : SAVE DLVEC FOR TYPEOUT 
104402 ENDRTN TYPOC +260 TYPE=-OCTAL ASCII(ALL DIGITS) 


RSERR SEARS 


AOAaRLKOO & 


12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 


0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0121 
0122 
0122 
0122 
0122 
0122 
0122 
0122 


— SS SS YS 


000207 RTS 
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012220 


005767 
001027 
026727 
001003 
005067 
000403 


0 
012244 
012250 


004767 


012600 


012767 
012767 
016767 
016767 
000410 


012704 
006167 
060467 
060467 


036767 


012332 001732 


MACY11 -atahcadead 
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000122 
000116 000001 


000106 


000110 


000001 
000001 
166756 
166744 


000066 
166716 
000056 
000052 


000010 
000032 
000032 
000030 


000016 166720 


B 9 
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ati. i 
- MYTYPE 
is CYCLE 
SERA 
te * ROUTINE : CYCLE 
THIS ROUTINE CAUSES ADRS TO POINT TO THE 
te ADDRESS OF DLV11-E UNDER TEST, ADRS +2 10 
:* POINT TO THE VECTOR OF THE DLV11-E UNDER TEST 
:* re KEEPS TRACK OF THE CURRENT DEVICE AND BIT 
** 
FARRAR KEKE REE KEE KERR KEE KEE KEE EERE ERE KEEKKKKKEKEEEKEKEE EK 
REPEAT 
$244: 
IF BITMASK EQ #0 THEN 
TST BI TMASK 
BNE $245 
IF INITFLAG EQ #1 THEN 
CMP INITFLAG,#1 
BNE $246 
LET INITFLAG := #0 *» 
CLR INITFLAG 
ELSE 
BR $247 
$246: 
CALL $EOP =; AS A SUBROUTINE 
JSR PC, $EOP 
SPEC IALADDRESS: ; BECAUSE $EOP RETURNS AS A JUMP 
LET RO := POP 
MOV (SP) +,RO 
ENDIF 7 
$247: 
LET BITMASK := #1 
MOV #1 ,BITMASK 
LET $DEVCT := #1 
MOV #1 ,SDEVfT 
LET ADDRESS := $BASE 
MOV $BASE , ADDRESS ' 
LET VECTOR := $VECT1 
MOV $VECT1; VECTOR 
j ELSE 
BR $250 , 
$245: 
LET RG := #10 
MOV #10,R4 
LET BITMASK := BITMASK ROTATE 1 
ROL BITMASK | 
LET ADDRESS := ADDRESS + R4 
ADD R4 ADDRESS 
LET VECTOR := VECTOR + R4 
ADD R4,VEGTOR 
ENDIF 
$250: 
UNTIL BITMASK SETIN $DEVM 
BIT BITMA$K, $DEVM 
BEQ $./4 | 


SEQ 0105 


we 
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LET ADRS := #ADDRESS 
012701 012352 MOV ADDRESS , ADRS 
LET SDEVCT := $DEVCT + #1 

005267 166640 


BITMASK: 
INITFLAG: 
ADDRESS: 
VECTOR: 


ENDRTN 
$242: 
$243: 
000207 RTS 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


— SS ee — oe 8 ow) =) ow 
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-SBTTL END OF PASS ROUTINE 


DIBA III ICIS III IOI IOIOIIOIOIOIOIOIOIOT IOI OT TTT TT TTS TEE IIE 
 RINCREMENT THE PASS NUMBER ($PASS) 
et od Sel END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
TYPE “END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
ielF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO SPECIALADDRESS 


$EOP: 
166514 $STSTNM 32ZERO THE TEST NUMBER 
STIMES 2 ZERO THE NUMBER OF ITERATIONS 
04 $PASS ; INCREMENT THE PASS NUMBER 
100000 166576 “ae : DON'T ALLOW A NEG. NUMBER 
+ 


SEOPCT: . “is 


$DOAGN 33VES 
ye eagernre :sRESTORE COUNTER 


SENDCT: .WORD 


012465 , SENDMG :TYPE "END PASS #°' 
166552 MO $PASS ,~ (SP) SAVE $SPASS FOR TYPEOUT 

£60 Do mal bee ASCII WITH SIGN 
012462 , SENULL TYP CHARACTER 


000042 $GET42: a442,RO 
$DOAGN 


SENDAD : PC, (RO) 


$DOAGN: 
a(PC)+ 
$RTNAD: . SPEC IALADDRESS 
377 000 $ENULL: . -1,-1,9 /NULL CHARACTER STRING 
042412 042116 $ENDMG: . <1§><42>/END pass’ # 
051501 020123 
012500 000043 
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-SBTTL POWER DOWN AND UP ROUTINES 


ARERR RRR REAR ERE REE E ERE 
“POWER DOWN ROUT INE 
012502 012646 000024 $ : MOV ILLUP,@#PWRVEC ;;SET FOR FAST UP 
000340 000026 MOV ot BYPWRVEC +2 ; :7 
-(SP) RO ON STACK 


R1 ON STACK 
R2 ON STACK 
R= ON STACK 
R4 ON STACK 
RS ON STACK 
H @SWR ON STACK 


AVR6 :TSAVE SP 
000024 #SPWRUP ,a#PWRVEC’ >;SET UP VECTOR 
000000 
000776 ' 3 ;HANG UP 
FARRER RK ER ERK ERE REE EEK ERR EERE KEKE EEK ERE REE RE KK KK 
“POWER UP ROUTINE 
012737 000024 $PwRUP: MO #SILLUP, a#PWRVEC 6g" se" FAST DOWN 


$SAVR6, SP 
$SAVR6 ; «WAIT i. FOR THE TTY 
1$: tee THE INC 


166334 (SP) +,@SWR 
(SP)+,R5 


:sPOP_STACK INTO RO 
012502 000024 #SPWRDN , AAPWRVE C :jpRlO: yp THE POWER DOWN VECTOR 


000340 000026 MOV #340, a#PWRVEC+2 ; 
sREPORT THE POWER FAILURE 
$POWER ;POWER FAIL + 5 pa POINTER 
(PC) +, (SP) : TRESTART AT STAR 
$PWRAD: . START > ;RESTART ADDRESS. 


$ILLUP: 3.THE POWER UP SEQUENCE WAS STARTED 
BR . 3: BEFORE THE POWER DOWN WAS COMPLETE 
é $SAVR6: 0 3sPUT THE SP HERE 
047520 042527 $POWER: .ASCIZ <15><12>' POWER’ 


EVEN 
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-SBTTL TYPE ROUTINE 


DIOS ISISIOISIIIOISIOIOIOISIOIOIOIIOISIOIOIOIOIOIOIIOIIOI IOI IIIT I TTT TT TOT OT TTT TTT 

 RROUT INE TO TYPE ASCIZ eye MESSAGE MUST TERMINATE WITH A OB 

>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE. FEED. 

> *NOTE1: $NULL CONTAINS THE CHARACTER Y BE USED AS THE FILLER CHARACTER. 
> *NOTE2: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

; *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


° eCALL 
+1) USING A TRAP — 


105767 


004767 
105367 


166267 


000002 
000001 


000100 


000004 
000774 


000040 


000002 
000011 
000200 


000130 


000056 
166132 


166122 
000001 


000032 
600072 


166302 
166272 


166251 


TYPE 


TYPE 
ME SADR 


»ME SAD 


STPFLG 
1$ 


3$ 
RO,-(SP) 
a2(SP) ,RO 


MAPTENV, SENV 
62$ 


:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


2TS. ye Pe TERMINAL ? 
;sHALT HERE IF NO TERMINAL 
AVE 


3 20 
[GET ADDRESS OF ASCIZ STRING 
;:RUNNING IN APT MODE 

CHECK FOR APT CONSOLE 


3NO,GO 
-_— -SENVM ::SPOOL MESSAGE TO APT 


RO,61$ 
PC, SATY3 


::NO,GO CHECK FOR CONSOLE 
::SETUP MESSAGE ADDRESS FOR APT 
+ ¢ SPOOL L_ MESSAGE TO APT 

MESSAGE ADDRESS 


0 
#APTCSUP ,SENVM iZABT oe tt aa 


(RO) +,-(SP) 
4$ 

(SP) + 

(SP) +,R0 
#2, (SP) 
#HT, (SP) 

8$ 
ACRLF , (SP) 


(SP) + 


$CHARCNT 
2$ 


PC ,$TYPEC 
$FiLLC, (SP) + 


$NULL ,- (SP) 
1(SP) 
$ 


Po STYPEC 
$CHARCNT 


YES, Dy 
A CHARACTER TO BE TYPED ONTO STACK 
2 IF IT ISN'T THE TERMINATOR 
3 IF TERMINATOR POP IT OFF THE STACK 
* TRESTORE RO 
7 ADJUST RETURN PC 
7 ;RETURN 


3;BRANCH IF <HT> 
> BRANCH IF NOT <CRLF> 


:zPOP <CR><LF> EQuiv 
37 TYPE A CR AND L 


CLEAR CHARACTER COUNT 


E 
T TIME FOR FILLER CHARS.? 
NO GO GET NEXT CHAR. 

# OF FILLER CHARS. NEEDED 
THE NULL CHAR. 


NULL NEED to BE TYPED? 
>. -GO POP THE NULL OFF OF STACK 


— A NULL 
COUNT As A COUNT 
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013050 000770 BR’ «7$ ; ;LOOP 
;HORIZONTAL TAB PROCESSOR 


013052 112716 8$: a thd. 7 REPLACE har WITH SPACE 
000014 9$: PC, $TYPEC ot ba A SPACE 
000052 4 #7, SCHARCNT sieranch IF NOT AT 


(SP) + ::POP SPACE OFF STACK 
BR 2$ GET NEXT CHARACTER 
166046 $TYPEC: M thee 9 7:WAIT UNTIL PRINTER IS READY 
000002 166040 2(SP) ,a$TPB sie: CHAR TO BE TYPED INTO DATA REG. 
000015 000002 1. ,2(SP) iTS nt hee A CARRIAGE RETURN? 


BN 
000014 2 YES--CLEAR CHARACTER COUNT 


000012 900002 1$: ALF ,2(SP) 21S CHARACTER A LINE FEED? 
$STYPEX : sBRANCH IF YES 
INCB (PC) + COUNT THE CHARACTER 
000000 $LHARCNT : . WORD : CHARACTER COUNT STORAGE 
000207 $TYPEX: RTS PC 








MAINDEC-22-CVD 
CVDVAC .P11 


013146 


013210 
013212 


013244 
013246 


VA-8 
23-AUG-78 


022767 


117746 
042716 


021627 


021627 


1 mthnandd 


000176 


165762 


165756 
177600 
000007 
165726 
013673 
013700 
164750 


013711 


165700 


165674 
177600 


000025 


013666 
000006 


165601 
000100 


177522 
000060 


INPUT ROUT INE 
-SBTTL TTY INPUT ROUTINE 
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COD TORII TOIT TIO TUI IOI IOIIOTOIIOI IOI 


-ENABL LSB 


JIRA III III III OI ITT RIAA AISA SISA AISI SI ISISI SII III I IAI ISI I ASS AAAS. 

“ kSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

: *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
WHEN OPERATING IN TTY FLAG “ss 


165764 SCKSUR: CMP ASWREG, SWR 
BNE 15$ 

a$TkS 
15$ 
@$TKB,-(SP) 
#°(177, (SP) 
#7, (SP)+ 
15$ 


000001 $AUTOB, #1 
15$ . 


-SCNTLG 
$MSWR 


T 
$GTSwR: . $MSW 
M SWREG,-(SP) 


T , SMNEW 
19$: =(S$P) 

CL ~-() 
7$: a$TKS 
7$ 


@$TKB,-(SP) * 


#°0177, (SP) 


(SP) 425 
10$ 


165620 


000001 
165576 #100, a$TKS 


Pc, ,STYPEC 
(SP) ,#60 


IS THE SOFT-SWR SELECTED? 
H IF NO 


; ; BRANCH 
23 CHAR THERE ? 
:IF NO, DON'T WAIT AROUND 
[SAVE THE CHAR 
:STRIP-OFF THE ASCII 
S IT _A CONTROL G? 
: NO» RETURN TO USER 
ARE WE RUNNING IN AUTO-MODE? 
S:BRANCH IF YES 


3-ECHO THE CONTROL-G (*G) 
:zTYPE CURRENT CONTENTS 
He SWREG FOR TYPEOUT 
= G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
; PROMPT FOR NEW SWR 


3¢CHAR THERE? 

sc 1F NOT TRY AGAIN 
3zPICK UP CHAR 

7cMAKE IT 7-BIT ASCII 


21S IT A_CONTROL-U? 
=BRANCH IF NOT 
: EYES. ECHO CONTROL-U (“U) 
E PREVIOUS INPUT 
“:LET'S TRY IT AGAIN 


21S IT A <CR>? 

;BRANCH IF NO 
Sz YES, IS IT THE FIRST CHAR? 
: BRANCH IF YES 


: D <LF> 
RE-ENABLE TTY KBD INTERRUPTS? 
: BRANCH IF NOT 
7 sRE-ENABLE TTY KBD INTERRUPTS 


SEQ 0111 
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4695 013360 002420 
4696 013362 - 021627 
4697 013366 003015 
4698 013370 042726 
4699 013374 005766 
4700 013400 001403 
4701 013402 006316 
4702 013404 006316 
4703 013406 006316 
704 013410 005266 
4705 013414 056616 
4706 013420 707 
4707 013422 104401 
708 013426 000720 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 013430 011646 
4721 013432 016666 
4722 013440 105777 
4723 013444 100375 
4724 013446 117766 
4725 013454 042766 
4726 013462 026627 
4727 013470 001013 
4728 013472 105777 
4729 013476 100375 
4730 013500 117746 
4731 013504 042716 
4732 013510 022627 
4733 013514 001 
4734 013516 000750 
4735 013520 026627 
4736 013526 002407 
4737 013530 026627 
4738 013536 003003 
4739 013540 042766 
4740 013546 

4741 

4742 

4743 

4744 

4765 

4746 

4747 

4748 013550 010346 
4749 013552 012703 
4750 013556 022703 


000002 
177776 
001170 


000004 
165500 


165474 
177600 
000004 
165446 
165442 
177600 
000021 
000004 
000004 


000040 


013656 
01 3666 


1 an ae 


000002 


000004 
000004 
000023 


000740 
000175 
000004 


mh, 
ea oy Hd - PAGE 114 


INPUT ROUTI 
BLT 18$ ;;BRANCH IF YES 
CMP (SP) ,#67 > 7? 
BGT 18$ ‘| BRANCH IF ES 
BIC #60, (SP)+ :iSTRIP-OFF. A SCII 
TST 2(SP) i1S THIS THE FIRST CHAR 
BEQ 17$ CH IF YES 
ASL (SP) 2 INO, SHIFT PRESENT 
ASL (SP) ‘:; CHAR OVER TO MAKE 
ASL (SP) :: ROOM FOR NEW ONE 
178: INC 2(SP) ::KEEP COUNT OF CHAR 
BIS =2(SP), (SP) *:SET IN NEW CHAR 
BR 7$ GET THE NEXT ONE 
188: TYPE $QUES TYPE ?<CR><LF> 
20$ +: SIMULATE CONTROL-U 
.DSABL LSB 


53 ASP REPRESS EERE ELAR RRR RR REARS REESE AAA SE RES SASSER SARS SRE SSS SE SG 


S*THIS ROUTINE WIL! INPUT A SINGLE CHARACTER FROM THE TTY 


S*CALL: 
is RDCHR : INPUT A SINGLE CHARACTER FROM THE TTY 
* RETURN HERE =CHARACTER IS ON THE STACK 
:* “:WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,-(SP) >:PUSH DOWN THE PC 
MOV 4(SP) ,2(SP) SSAVE THE PS 
1$: TSTB = aSTKS S WAIT FOR 
BPL 1$ :3A_ CHARACTER 
MOVB  @$TKB,4(SP) SREAD THE TTY 
BIC tT Ne 4(SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP) ,423 HHS IT A CONTROL-S? 
BNE 3$ ‘BRANCH IF NO 
2$: TSTB = a$STKS z:WAlT FOR A CHARACTER 
BPL 2$ ;:LOOP UNTIL ITS THERE 
MOVB  a@$TkB,-(SP) :GET CHARACTER 
BIC #°0177, (SP) MAKE IT 7-BIT ASCII 
CMP (SP)+,421 ae IT A CONTROL-Q? 
BNE 2$ :IF NOT DISCARD IT 
BR 1$ ‘YES, RESUME 
3$: CMP 4(SP),#140 1S iT UPPER CASE? 
BLT 4 ;:BRANCH IF YES 
CMP 4(SP) #175 :IS IT A SPECIAL CHAR? 
BGT 4 ::BRANCH IF YES 
BIC #40,4(SP) :MAKE IT UPPER CASE 
4$: RTI 260 BACK TO USER 
bd FREER RRR ERRE RE REEEERERA REE A ERE ERE ERE 
eSTHIS | ROUTINE WILL INPUT A STRING FROM THE ITY. 
>* CALL: 
ie DLIN ; INPUT A STRING FROM THE TTY 
i* RETURN HERE : ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
* : TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV R3,-(SP) Zz SAVE R3 
1¢: MOV #2TTYIN,R3 *:GET ADDRESS 


2$: CMP #STTYIN®R.,R3 = BUFFER FULL? 


SEQ 0112 
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013562 BL Os 4$ 
13564 10 
(SP) +, (R3) 
#177, (R3) 
$QUES : 
“CLEAR THE BUFFER AND LOOP 
(R3),98 ::ECHO THE CHARACTER 
#15, (R3)+ >;CHECK FOR RETURN 
Pale NOT RET 


BN $ ae URN 
177777 ; AR RETURN (THE 15) 
001172 3 LINE FEED 


385 IF YES 
;;GO READ ONE CHARACTER FROM THE TTY 
HARACTER 


ener 


———— 


eoeeas 
eee 


TRESTORE R3 
) : TADJUST THE STACK AND PUT ADDRESS OF THE 

000004 000002 33 FIRST ASCI! CHARACTER ON IT 
013656 900004 #$TTYIN,4(SP) ead 

9$: 0 Halas FOR ASCII CHAR. TO TYPE 

SITYIN: . 8. : RESERVE 8 BYTES FOR TTY INPUT 
005015 000 $CNTLU: . 7*U/«<15><12> 7 CONTR ry’ 
006507 000012 S$CNILG: . /*G/<15><12> ‘CONTROL |" 
053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 


000 
040 047040 053505 $MNEW: .ASCIZ / NEW = / 
013716 000040 


g 
Be 
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-SBTTL APT COMMUNICATIONS ROUTINE 


SURI IOI III IOI ICIOIIOISIOIOIIOII IOI IIIOIOIIIOIIIOI III III III TOI IO 


013722 7 000236 $ATY1: MOVB. #1 .SFFLG ::T0 REPORT FATAL ERROR 
000226 : 0 #1 -SHFLG 7:70 TYPE A MESSAGE 


SATY 
000220 : #1, $FFLG 32TO ONLY REPORT FATAL ERROR 


RO,-(SP) ;zPUSH RO ON STACK 

R1,-(SP) + =PUSH R1_ON STACK 
000206 ; tia 4a TYPE A MESSAGE? 
000001 165226 theta ania + /OPERATING UNDER APT? 


000100 165217 oo SHOULD SPOOL MESSAGES? 


23 1F NOT: 
000004 ::GET MESSAGE MOOR. 
000002 000004 . 3; ;BUMP RETURN ADDR. 
165156 : :3SEE IF’ DONE W/ LAST XMISSION? 
BN 1$ se1F NOT: WAIT 
165164 ;;PUT ADDR IN MAILBOX 
: (RO) ;3FIND END OF MESSAGE 


2$ 
165154 UB . +3 SUB START OF MESSAGE 

RO GET MESSAGE LNGTH IN WORDS 
165150 RO, $MSGLGT :2PUT LENGTH IN MAILBOX 
000004 165124 44 , SMSGTYPE TELL APT TO TAKE MSG. 


000016 : a4 (SP) ,4$ 7z:PUT MSG ADDR IN JSR LINKAGE 
000004 #2,4(SP) -BUMP RETURN ADDRESS 
177776, -(SP) ; ;PUSH 177776 ON STACK 
176566 PC. STYPE :CALL TYPE MACRO 


000062 $FFLG . 3zSHOULD REPORT FATAL ERROR? 
1 731F NOT: BR 


E 2 
165102 : :RUNNING UNDER APT? 
12$ NOT: BR 
165054 ss ore LAST MESSAGE? 
000004 165046 : :GET ERROR # 
000002 


000004 #2,4(SP) ;BUMP RETURN ADDR. 
7 TELL APT TO TAKE ERROR 


aad aa aa and ond an ond aad cn 
Par ar ar oF oF oF oF >? > >t 


sessssssessSe 

ee pe Pe pepe pe pe pepe pe pepe pe pepe pe ye) 
<8 od 

RALVSENSHKSVSRVEKRS 


000006 ; 
oe : POP STACK INTO R1 
ue INTO RO 


SZFATAL FLAG 


000200 APTSIZE=200 
000001 APTENV=001 
000100 APT SPOOL =100 
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4834 000040 APTCSUP=040 


CATIO SEQ 0115 
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-SBTTL ERROR HANDLER ROUTINE 


DAIS IOISIOISISIOISISIOIIOIIIOIOIOIDIIIEIOIIOIOIOIOIOII TT TOT TEI TT TT TTT TS TST ST TT TT TT 
SRTHIS ROUTINE WILL_INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO MYTYPE ON ERROR 

is THE SWITCH sli 5 on bance BY THIS ROUTINE ARE: 


RROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 

ON ERROR 


N ;:ERROR=EMT AND N=ERROR ITEM NUMBER 


014170 $SERROR: 
C :-TEST_FOR a | IN SOF T-SWR 

164705 7$: SERFLG oe SET THE ERROR FLAG 

7$ DON'T LET THE FLAG GO TO ZERO 
164676 STSTNM,@DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
002000 #B1T10,aSWR : éBELL ON ERROR? 

1$ sNO = SKIP 
001164 . SBELL ; :RING BELL 

$ERTTL COUNT THE NUMBER OF ERRORS 

53 séan oo. 7:GET ADDRESS OF ERROR INSTRUCTION 


164646 SSERRPC, SITEMB :-STRIP_AND SAVE THE ERROR ITEM CODE 
164664 #81113, aSWR + ¢SKIP TYPEOUT IF SET 
20$ :SKIP_TYPEOUTS 
175554 PC ,MYTYPE 3:GO TO USER ERROR ROUTINE 
001171 : » SCRLF 


000001 164720 MAPTENV, SENV 3 sRUNNING IN APT MODE 

$ :éNO, SKIP APT ERROR REPORT 
164612 000004 SITEMB, of'® >SET ITEM NUMBER AS ERROR NUMBER 
177430 J -SATY ;;REPORT FATAL ERROR TO APT 


2 sAPT ERROR LOOP 
164620 


T 
;TEST FOR CHANGE IN SOFT-SWR 
001000 164604 : gai tes 208 e ON ERROR SWITCH SET? 


SIBR_IF NO 
164546 MOV  $LPERR.(SP) —; FUDGE RETURN FOR LOOPING 
164614 SESCAPE : CHECK FOR AN ESCAPE ADDRESS 


5$ 
016716 164606 SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
022737 012446 000042 #SENDAD, #42 =: : ACT=11 AUTO-ACCEPT? 
001001 BN 6$ : ;BRANCH IF NO 
009000. +S YES 
000002 +: RETURN 
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CVDVAC .P11 


014370 


104407 
032777 
001114 
000416 


013746 


116767 


MACY11 epntahneas 


040000 


000004 
000004 
000004 


000400 
164464 
164417 
164423 
001000 
164376 


164361 
164432 


004000 
1644 36 
164332 
164402 


164274 


164540 


000004 


164472 
164424 


164407 
164434 
164372 


164402 


164324 


164314 
164362 


164370 


ike nea 
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E HANDLER ROUTINE 
-SBTTL SCOPE HANDLER ROUTINE 


SARA RERE REAR ER ERE RER EK E ERE K 


SRTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 
TE STNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 


>*AND LOAD TH 


T NUMBER ($T 


IT WILL INCREMENT 


:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
SW14= LOOP ON TEST 


INHIBIT ITERATIONS 

LOOP ON ERR 

LOOP ON TEST IN SWR<7:0> 
;-SCOPE=I0T 


SCOPE 


$SCOPE: 
CKSWR 
1$: BIT 
BN 


E 0 
j;ARARASTART OF ooee FOR THE XOR 


$XTSTR: BR 


5$: 


1$: 

MO 
$SVLAD: 

MO 


4B1T14,aSWR 
SOVER 


@#ERRVEC ,- (SP) 
oT aes 


a#1 77060 
ee 


SVLAD 
(SP)+,(SP)+ - 


(SP) +, @MERRVEC 
7$ LOOP 
CODE FOR THE KOR TESTERAANRA 
#B1T08,aSWR 


2$ 

coal $TSTNM 
$SOVE 

SERFLG 
SERMAX , SERFLG 
a3! 109 AOR 
$LPERR, $LPADR 
SOVER 


SERFLG 
eI ES 


$ 
4B1T11,aSWR 
$PASS 
1$ 


$ICNT ° 
STIMES ,SICNT 
a VER 


1,$1CNT 
SHXCNT $TIMES 
$7STNM 
$TSTNM, STESIN 


2s TEST FOR nw ad IN SOF T-SWR 
T TEST? 


TeSTERWawen 

31F RUNNING ON THE *XOR'' TESTER CHANGE 

STHIS INSTRUCTION TO A ' NOP=240) 
SISAVE THE CONTENTS OF THE ERROR VECTOR 
3-SET FOR_TIMEOUT 

ME OUT ON XOR? 

3 TRESTORE THE Tae VECTOR 

:GO_TO THE NEXT TEST 
7:CLEAR THE STACK AFTER A TIME OUT 
2 «RESTORE THE ERROR VECTOR 

ON bia PRESENT TEST 


fe a ia TEST? 
STON THE RIGHT TEST? 
3 F YES 


S=HAS AN ERROR OCCURRED? 
:;BR IF NO 
MAX. ERRORS FOR THIS TEST OCCURRED? 


: LOOP ON ERROR? 
':SET LOOP ADDRESS TO LAST SCOPE 


3:ZERO THE ERROR FLAG 
:-CLEAR THE NUMBER OF 4 TEMA IGS TO MAKE 
oy ae TO_THE NEXT TEST 

2 INH we 


ciF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
: INCREMENT ITERATION COUNT 
$C HECK THE NUMBER OF ITERATIONS MADE 
:BR IF MORE ITERATION REQUIRED 
; REINITIALIZE THE ITERATION COUNTER 
;SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS , 
SET TEST NUMBER IN APT MAILBOX 


SWR<7:0> 


SEQ 0117 
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po 


014610 


MACY11 atahnaal 


23-AUG-78 15:13 


164265 
164302 SOVER: 


SMXCNT: 


ifs tear 


E HANDLER ROUTINE 


8B 10 
15:14 PAGE 120 


MOV (SP) ,SLPADR 


MOV (SP) ,SLPERR 
C SESCAPE 
MOVB #1, SERMAX 
MOV $TSTNM,@DISPLAY 


MOV $SLPADR , (SP) 


RTI 
2000. 


3zSAVE SCOPE LOOP ADDRESS 
3:SAVE_ ERROR LOOP ADDRESS 
2 sCLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
::DISPLAY TEST R 
ZEPIMES PS RETURN ADDRESS 
NUMBER OF ITERATIONS 


SEQ 0118 


MAINDEC-ZZ2-CVD 
CVDVAC .P11 


014650 


015030 


VA-8 
23-AUG-78 


5:1 


020200 
000020 
000055 
015064 
000040 


015054 


000001 
000060 
000040 


000010 


177777 


macyht 30A (1052) 


000001 


177777 


177776 


23-AUG-78 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


C_10 
15:14 PAGE 121 


FEAR ERR REEREEREERREEEEEREREEREREEERKEREEERRER ERE 


{RTHIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 5-DIGIT 


; *SIGNED DECIMAL (ASCII) NUMBE 
VE OR NEGATIVE A SPACE OR A MINUS SI 
THE NUMBER. 


> *NUMBER IS POSITIV 
> *BEFORE THE FIRST DIGIT OF 


: 
+* 
° 
** 
° 


$TYPDS: 


7$: 


8$: 


9$: 


MOV 
TYPDS 


:*REPLACED WITH SPACES. 
*CALL: 


NUM, ~(SP) 


RO,-(SP) 
R1.-(SP) 
R2.-(SP) 
R3,-(SP) 
R5.-(SP) 
#20200,-(SP) 
20(SP) ,R5 
1$ 

R5 
#'=,1(SP) 
RO 


#$DBLK ,R3 
. ,(R3)+ 


$DTBL (RO) ,R1 
R1,R5 


7$ 
(SP) 


6$ 
(SP) + 


(SP)+. ‘Re 


AND TYPE IT. DEPENDING ON WHETHER 
GN WILL BE TYPED 
LEADING ZEROS WILL ALWAYS BE 


:;PUT_THE BINARY NUMBER ON THE STACK 
:2GO TO THE ROUTINE 


+ ¢PUSH RO ON STACK 


: CK 
32SET BLANK SWITCH AND SIGN 
feet INPUT NUMBER 


3 sMAKE 
22ZERO THE CONSTANTS INDEX 
2-SETUP THE OUTPUT POINTER 
ot THE FIRST CHARACTER TO A BLANK 
:CLEAR THE BCD NUMBER 
;;GET THE CONSTANT 
;FORM THIS BCD DIGIT 


“BR IF DONE 
7: INCREASE THE BCD DIGIT BY 1 


a BACK THE CONSTANT 
rig 4 BCD oA =0 


OUGH IF 0 
Hat Fa LEADING 0°S? 


:7;BR IF NO 
2s YES=-SET THE SIGN 
MAKE THE BCD DIGIT ASCII 
: :MAKE IT A SPACE IF NOT ALREADY A DIG 
3zPUT THIS aoe jy IN THE OUTPUT BUF 


: s CHECK THE TABLE INDEX 


IT 
FER 


XIT 
SIGET THE LSD 
::GO CHANGE TO ASCII 
3: WAS Pe LSD THE FIRST NON-ZERO? 


$3 IF NO 

77YES--SET THE SIGN FOR TYPING 
7:SET THE 7ERMINATOR 

:zPOP STACK INTO R5 

3:POP STACK INTO R3 

;.POP STACK INTO R2 


D_10 
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CVDVAC.P11 23-AUG-78 15:13 VERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0120 
5009 915032 012601 MOV (SP)+,R1 ;POP STACK INTO R1 
5010 1415034 012600 MOV (SP) +-RO ::POP STACK NTO RO 
5011 015036 104401 915064 TYPE $DBLK ‘NOW TYPE THE NUMBER 
5012 015042 016566 000002 000004 MOV 2(SP) ,4(SP) ADJUST THE STACK 
5013 015050 012616 MOV (SP) +. (SP) 
5014 015052 000002 RTI : RETURN TO USER 
5015 015054 023420 $DTBL: 10000. 
5016 015056 001750 1000. 
5017 015060 000144 100 


5018 015062 000012 10. 
5019 015064 000004 $DBLK: .BLKW 4 
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-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DORA IOI ISIS ISISIUISISIISIIIOISIDISIUISIOIOIUIDIOIUIIOIOIIIIDISIOIOIIUIIOIIOISIIUIIODIDI 
>*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


> *CALL: 
; MOV NUM, = (SP) ; ;NUMBER TO BE TYPED 
TYPOS :-CALL_FOR TYPEOUT 
-BYTE N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
-_BYTE ™M :3M=1 OR 0 
321=TYPE LEADING ZEROS 
;0=SUPPRESS LEADING ZEROS 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR $TYPOC 
: L: 


NUM, = (SP) ;;NUMBER TO BE TYPED 
3sCALL FOR TYPEOUT 


** 
Ny ae ate HERE FOR TYPECUT OF A 16 BIT NUMBER 
s*CALL: : 

:* MOV NUM, = (SP) > NUMBER TO BE TYPED 
;* TYPOC 33CALL FOR TYPEOUT 


$TYPOS: MOV a(SP) ,-(SP) 3sPICKUP THE MODE 
000211 MOVB 1(SP) , SOF ILL + ¢LOAD ZERO FILL SWITCH 
P 1 ;:NUMBER OF DIGITS TO TYPE 
SZADJUST RETURN ADDRESS 


BR PON 
000171 : ot THE ZERO a Bi SWITCH 
000165 MOVB #6 SET FOR SIX(6) DIGITS 

000154 : ee $0C i361 THE ITERATION COUNT 


= oO 
—_— 

ERSaVKSR 

Shae 


ORRR 
OAR 

O00 
— — —) Yd 1 


ee ER RS 
>:GET THE NUMBER OF DIGITS TO TYPE 


2 ¢ SUBTRACT IT FOR MAX. ALLOWED 
SAVE _IT FOR USE 

:2GET THE ZERO FILL SwilCH 
::PICKUP_THE INPUT NUMBER 
CLEAR THE OUTPUT WORD 

: ROTATE MSB INTO '‘C'’ 


:GO DO MSB 
FORM THIS DIGIT 


> parte 4 
RO” 
NR 


: L R :GET (SB OF THIS DIGIT 
000076 TYPE THI THIS DIGIT? 


3 
177770 #177770,R3 GET RI RID” OF JUNK 
Re, ‘tt Bpress THIS 0? 
5$ :.BR IF YES 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
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ao th snehtid 
15:13 


000062 G00004 


F 10 
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BINARY TO OCTAL (ASCII) AND TYPE 


3 DON'T SUPPRESS ANYMORE 0'S 
3¢MAKE THIS DIGIT ASCII 

: /MAKE eon t vee NOT ALREADY 
32SAVE FOR TYPING 

3:GO TYPE THIS DIGIT 

;-COUNT BY 1 


: /BR 4 MORE TO DO 
F DONE 


3: INSURE LAST DIGIT ISN'T A BLANK 
3:GO DO THE LAST DIGIT 
; RESTORE R5S 


ORE R3 
SET THE STACK FOR RETURNING 


37 ZRETURN 
3;STORAGE FOR ASCII DIGIT 
earths) FOR TYPE ROUTINE 
sOCTAL DIGIT COUNTER 
sZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 





SEQ 0122 
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5097 -SBTTL TRAP DECODER 
5098 


S099 DD EEE ER RRR ER RRR RRR ER EEK 
5100 3*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
5101 ;*AND USE IT TC INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
5102 :*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 
$TRAP: RO,-(SP) 77SAVE RO 

MO 32GET TRAP ADDRESS 

3 ;BACKUP BY 2 
32.GET RIGHT BYTE OF TRAP 

R ;zPOSITION FOR INDEXING 
$TRPAD (RO) ,RO 33 INDEX TO TABLE 
RO :3GO TO ROUTINE 


3<THIS IS USE TO HANDLE THE ‘'GETPRI*' MACRO 
011646 ; . $TRAP2: MOV (SP) ,=(SP) :sMOVE THE PC DOWN 
016666 000006 006002 MOV 4(SP) ,2(SP) 7eMOVE THE PSW DOWN 
000002 RT] ;sRESTORE THE PSwW 

- SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED, 
3*BY THE ‘‘TRAP’' INSTRUCTION. 


: ROUT INE 
$TRPAD: gWwoRD 


NOOR OOO NAAR WUUODSRURAR GS 


$TRAP2 

3 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

33 CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
3eCALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 

3 ¢CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL? 
$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


$GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
$CKSWR =; ;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 


$RDCHR 3; CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
$RDLIN 3; CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 


Who 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


a dd i 8 i et a ss 8 kd a ad st et I I 
wn co 


wOCON 
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MAINDEC-77-CVDVA-8 MACY] 
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ABASE = 175610 1#@ 1017 1058 

ACDW1 = 000000 1017 

ACDW2 = 000000 1017 

ACPUOP= 000000 1017 1032 

ADDRES 012352 4439% 4450" 4460 44674 
= 000000 1017 

ADDW1 = 000000 . 1017 

ADDW10= 000000 1017 

ADDW11= 000000 1017 

ADDW12= 000000 . 1017 

ADDW13= 000000 1017 

ADDW14= 000000 1017 

ADDW15= 000000 1017 

ADDW2 = 000000 1017 

ADDW3 = 000000 1017 

ADDW4 = 000000 1017 

ADDWS = 000000 1017 

ADDW6 = 000000 1017 

ADDW7 = 000000 1017 

ADDW8 = 000000 1017 

Dw9 = 000000 1017 
ADEVCT= 000000 1017 1023 
EVM = 000001 1@ 861017 1059 

AENV = 000000 1017 1028 

AENVM = 000000 1017 1029 

AFATAL= 000000 1017 1020 . 
1= 000000 1017 1045 

AMADR2= 000000 1017 1049 

AMADR3= 000000 1017 1052 

AMADR4= 000000 1017 1055 

AMAMS1= 000000 1017 1039 

AMAMS2= 000000 1017 1047 

AMAMS3= 000000 1017 1050 

AMAMS4= 000000 1017 1053 

AMSGAD= 000000 1017 1025 

AMSGLG= 000000 1017 1026 

AMSGTY= 000000 1017 1019 

AMTYP1= 000000 1017 1049 

AMTYP2= 000000 1017 1048 

AMTYP3= 000000 1017 1051 

AMTYP4= 000000 1017 1054 

APASS = 000000 1017 1022 

APRIOR= 000000 1017 

APTCSU= 000040 4590 48344 

APTENV= 000001 2697 2906 3183 384e 4583 4790 68324 4866 

APTSIZ= 000200 1128 48314 

APTSPO= 000100 4585 4792 48334 

ASWREG= 000000 1017 1030 c 

ATESTN= 000000 1017 1021 

AUNIT = 000000 1017 1024 

AUSWR = 071110 1# 1017 1031 

AVECT1= i@ =61017 7056 

AVECT2= 0 1017 1057 

BADBRK 011322 41134 

BAUD = 007 9218 . 
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BITMAS 012346 © 4416 4435* 4448% 4456 44654 

BITO = 000001 7964 

BITOO = 000001 7864 796 865 886 907 

BITO1 = 000002 7854 795 844 864 906 

BITO2 = 7844 794 843 863 884 905 ‘ 

BITO3 = 000010 7834 793 842 862 904 

BITO4 = 000020 — 7828 792 861 903 

BITOS = 000040 78148 791 840 860 902 

BITO6 = 000100 7804 790 839 859 880 901 

BIT07 = 000200 7798 789 838 858 879 900 

BITO8 = 000400 7784 788 4919 

BITO9 = 001000 777& 787 4877 4927 

BIT] = e 7954 

B1T10 = 002000 7764 835 485 

BIT11 = 000 7758 834 74 4934 

BIT12 = 010000 7748 833 853 873 

BIT13 = 020000 7738 832 852 872 4861 : 

BIT14 = 040000 772 831 851 871 4905 

BIT15 = 100000 7718 830 850 870 

BIT2 = 000004 7944 

BITS = 000010 7938 

BIT4 = 000020 792% 

BITS = 0 7914 

BIT6é = 00Q100 7904 

BIT? = 000200 7898 

BIT8 = 00 7884 

BIT9 = 001000 7874 

BPTVEC= 000014 8034 

BREAK = 000001 8864 1272 1285 1288 1302 1305 1$19 1324 4081 

BRK = 010000 922% 1260 4063 

CABLE = 020000 9234 1996 2050 2141 2230 2319 2410 2510 2614 3559 3741 

CARDE T= 010000 8334 2075 2095 2115 

CKSWR = 104407 4850 4876 4904 51364 

CLR = 8244 2916 4190 

CLRSEN= 020000 8324 2164 2184 2204 

COMSPD= 100 9164 

CR = 000015 7114 4629 4639 

CRLF_ = 000200 7124 =©1152 4128 4371 4600 4639 

CYCLE 012220 1157 =. 44044 

DATA = 17 9134 4274 4275 

DATAIE= 000040 8404 1739 1752 1755 1769 1772 1786 1791 3572 3583 3616 

DATAIN= 100000 830% 1966 2443 2461 2470 2487 2544 2568 2591 2651 2673 

DATLNG 011646 3655 3761 3856 42564 

DDISP = 177570 7184 998 1116 

DISPLA 001142 98H = =1116* 1124*% 4853" 4949» 

DISPRE 000174 334 1124 . 

DL 1254 10784 1161* 1166 1169 1177 © 1176 1177 1180 1196 1228 4129 4391 

DLADDR= 175610 204 1078 1080 1081 1082 1083 1084 

DLVEC 125 10794 1164* 3350 3471 3u22 3879 4135 4397 

DSWR = 177570 717# 997 1115 

DTR = 2 8444 1518 1521 1535 1537 1550 1553 2072 2092 2112 2161 2181 2201 
2431 2459 2485 

EMTVEC= 30 8064 1099* 1100* 

ERRCNT 011022 3904* 3926 3932 39484 4015 4026* 

ERROR = 8504 3084 7148 

ERRVEC= 000004 799H = =1112 1114" 1125" 6910 49it* 49738 69168 


MAINDEC-27-CVDVA-8 


CVDVAC .P11 


000000 
011640 
020000 
04 


Reekee | 


104406 
011066 
011641 
000000 


000011 
001272 
000004 


012350 
012034 


012026 
000020 


001260 


1 30A(1052) 23-AUG-78 
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1420 


1104* 


1518* 


J.10 
15:14 PAGE 129 


4279 


3412* 


3256 


3276* 


2521 2624 
4520* 4529+ 
2953 
4°76 
1535* 


USER SYMBOLS 


4282s 


3428 


3258 


3278» 


3359 


4535* 
3062 
7550 


3884 


4548* 
3133 
1587 


5128 5129 


3569* 3595 


2848 2914 3196 


3890 


3148 3207 3517 
1600* 1603 1617* 


SEQ 0126 


5130 


3599 


3482 


3659 
1620 
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1676 
177777 2762 
SETCLR= 000006 


SPECIA 012250 
STACK = 001100 


1 30A(1052) 23-AUG-78 
CROSS REFERENCE TABLE -- 


1676* 


1603 
3616 


4019 
2294 


2382 
1679 


2803 


1617 


40444 


1693 
2862 


k_10 
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USER SYMBOLS 


1693* 
1831 


1620 1634 


1696 1710 
293) 2940 


1752* 
1901 


2886 2 

3580*  3583* 
3227 3503 
3509 3546 


1639 2251 


cena 
1715 2339 2359 
3501 3676 3689 


SEQ 0127 
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10884 4552 


1115* = 1117 1123* 4527 4540* 4649 4686* 4854 4861 
4905 4919 492] 4934 
1144 4649 4662 


3124* 
1348 


1482 
3543* 


41494 
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TST1 002060 11924 
TST10 3412 17314 
TST11 =©003554 18074 
TST12 003716 18904 
TST13 003756 19234 
TST14 004016 19564 
TST15 004056 19904 
TST16 = 0041 2001 
TST17 004276 2057 
TST2 002226 12558 
TST20 004436 2146 
TST21 004576 2236 
TST22 004736 2324 
TST23 005142 2416 
TST24 5 2516 
TST25 005554 2619 
TST26 005742 2701 
TST27 006056 28424 
TST3 002410 1264 
TST3O0 006166 29004 
TST31 006424 2910 
TST32 006670 3075 
TST33. = 007252 3178 
TST 007524 34644 
TST35 010146 3564 
TST36.0 =: 010362 3719 
TST37 =©010610 3746 
TST4 002552 14164 
TST40 §=©011166 3850 
TST41 011350 4067 
TSTS 002726 15034 
TST6 3 1511 
TST7 003250 1578 
TYPDS = 104405 4142 
TYPE = 104401 1138 
4660 
51284 
TYPOC = 104402 4130 
TYPON = 104404 51314 
TYPOS = 104403 51304 
VECTOR 012354 4441 
WAIT 011746 2436 
4220 
WAS 011027 39514 
WHICHB= 000002 41504 
XMITIE= 000100 8804 
3943 
XMITRD= 000200 8794 
ZZZ 011070 3982 
2ZZZ 011164 4042 
SAPTHD 1 957 
SASTAT= *«**e0% U 4812 
$ATYC 013746 4783 
$ATY1 013722 47814 
$ATY3 013730 4588 
$ATY4 013740 47844 


1 30A(1052) 


23-AUG-78 132 
CROSS REFERENCE TABLE == USER SYMBOLS 


26094 


4137 
4677 


4380 


2588 


1446 
2749 


15:14 PAGE 


30304 
3158 


4368 
4688 


4386 
2648 


1460 
2764 


31704 


4374 
4707 


4392 


2670 


1463 
3678 


4381 
4756 


4398 


3047 


1477 
3782 


4387 
4759 


4663 


3057 


1482 


4393 
4763 


51294 


3129 


3365 


4497 
4856 


3381 


3375 


4500 


4864 


3425 


3415 


4549 
5011 


3514 


3914 


SEQ 0129 


4603 
5080 


3590 


3941 


0 
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1148* 4657 4778 
4439 


4889 


4583 4814 4866 


4931* 
SERMAX 
SERRFL= 000000 


xe 

2= ® 
ANS 
WI=SSSSSx 
= 2 Pat SE 


ad ed aed eed eed eed eed ed ed ed 
NM 


AUS SWIMS 
NAQOUMEWPRON > 


Oo 


z 


— od =) oo) =) 


NUNS O 
z 
WA) tata taeda ed etd ad ad 
See. 
—NO 
R 


cO-w-— 
z= 


ee wom ato woe 
oO 
~'NOO 
=< 


NINN TY A RS Se SS Ss ee 
IW 
Ww 
. 


2983 30 304 
30744 3083 30944 3095 31014 3102 31244 
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31774 
3206 


rena arse 
co 


014170 


~NM 


BNA UWNARE 2 ON DWNAO 
+o 


Mn 
ny 
Ww 


PINIW—NOWOCONMnW—fo 


30 
55 
79 
11 
41 
75 
10 
52 


7? 
5 
3 
7 
2 
1 
7 
7 
5 
7 
5 
3 
7? 
2 
1 
7 
7 
5 


WOO.” 
WINN HS MH BW 
MLW 
iO Co 


1 
1 
1 
2 
2 
2 
3 
3 
4 
1 
1 
1 
2 
e 
2 
3 
3 
4 


SWANN > — — SWWGPRNN SS 
bo) SSRBASASS 


G.OW00 On 
fw 
wy 
ee 
COW 


$F SBLA= 
$F $CAS= 000150 
$FSDEC= 000220 





— 
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$F$GOO= 000400 


co 
OW 
z 


MON FL NN HK OM OM 


SEQ 0132 


non 
WNL AaNYIW 


on 


SFSIF = 000110 


ANN ODOS OOM WU 


= BWWPOPONn eS 
QUIN 


— SS |) BAO 


Vee 


$FSINC= 000210 
00 


Cf —COoOMw 
NSS wnM 


NS-OOW 


$FSRTIN= 000300 
$FSSEL= 000140 
$FSUNT= 000130 
$F $WHI= 000120 
$FSYES= 000402 


FEE HUN UW NOOWUWOWW UN 
ee 
WOO 


1 
i 
1 
2 
2 
2 
3 
3 
4 
1 
1 
1 
2 
2 
2 
3 
3 
4 
4 
3 
3 


WHO WOM—OL—-WdIWOM-— 
REMBe KAMWWE Se nnronw 
f= HOMO 


coco 
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SGDADR 001120 


T4 
SGTSWR 013216 


$HIBTS 001000 
SICNT 001104 
SIFLEV= 177777 


SILLUP 012646 
$INTAG 001135 
$1SkKO = C0Q0001 


$1Sk1 = 000001 


1 30A(1052) 


23-AUG-78 15:14 PAGE 
CROSS REFERENCE TABLE -~ 
1507 1521 1537 
1739 1755 1772 
2050 2075 2095 
2342 2362 2382 
2651 2673 2697 
3011 3066 3084 
3386 3390 3428 
3974 4011 4015 
4939 4941* 4952 
12234 12604 12664 
13644 13704 13814 
14884 15074 15134 
6034 16094 16204 
17214 17394 17454 
18484 18544 18674 
0264 20504 20594 
21844 21924 22044 
3264 23424 «2.3504 
24704 4764 24874 
26214 26514 26574 
28124 28174  2829K 
29584 2971 29748 
31054 31154 31334 
2564 32714 32734 
35594 35664 35954 
38524 39324 39384 
40944 4099 41024 
44544 
45544 
4778 
12604 1266 12724 
1370 13814 1387 
15074 1513 15214 
1609 16204 1626 
1739# 1745 17554 
1854 18674 1873 
20504 2059 2075 
2192 22044 2212 
23424 2350 23624 
2476 2487H 2493 
26514 2657 26734 
2817 28294 2835 
29714 2987 29944 
3145 31484 3155 
34284 3434 35214 
3821 38464 3852 
40944 4099 41024 
32564 3271 23904 
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2 
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72 
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4945* 
1269* 12835" — 6* 1392s 
1532s 1548» ‘ 1674+ 
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736* 1750* 1766* 1783* 1812* 1826* 1842 1859* 1899*  1931* 1964*  2008* 2068+ 
2088* 2108* 2157* 2177 21978 2247% 2267% 22878 2335% 2355% 2375% 2428% 2455 
2481% 2528% 2555% 2579% 2639% 2662% 2705% 2737% 2792% 2822% 2850*  3035*  3082* 
3101* 3119% 3362* 3409%  3477% 3557% 4879 492 4946* 4952 

SLSTCN= 177777 4 6 j20r 120 1217 1219 1223 1231 1260 1262 1266 1272 1274 1278 
1288 1290 1294 1305 1307 1311 1324 1326 1330 1348 1350 1354 1364 

366 1370 1381 1383 1387 1400 1402 1406 1430 1432 1436 1446 1448 
1452 1463 1465 1469 1482 1484 1488 1507 1509 1513 1521 1523 1527 
1537 1539 1543 1553 1555 1559 1574 1576 1580 1587 1589 1593 1603 
1605 1609 1620 1622 1626 1639 1641 1645 1663 1665 1669 1679 1681 
1685 1696 1698 1702 1715 1717 1721 1739 1741 1745 1755 1757 1761 
1772 1774 1778 1791 1793 1797 1815 1817 1821 1831 1833 1837 1848 
1850 1854 1867 1869 1873 1901 1903 1912 1934 1936 1945 1966 1968 
1979 1996 1998 2003 2011 2013 2026 2050 2052 2059 2075 2077 2083 
2095 2097 2103 2115 2117 2123 2141 2143 2148 2164 2166 2172 2184 
2186 2192 2204 2206 2212 2230 2232 2238 2254 2256 2262 2274 2276 
2282 2294 22 2302 2319 2321 2326 2342 2344 2350 2 2364 2370 
2382 2384 2390 2410 2412 2418 2443 2445 2449 2461 2463 2467 2470 
2472 2476 2487 2489 2493 2510 2512 2518 2544 2546 2550 2568 2570 
2574 2591 2593 2597 2614 2616 2621 2651 2653 2657 2673 2675 2679 
2697 2699 2703 2728 2729 2733 2749 2751 2755 2769 2770 2774 2812 
2813 2817 2829 2831 2835 2870 2871 2875 2886 2888 2892 
2912 2926 2927 2928 2930 2935 2938 2940 2945 2946 2948 2958 
2966 2967 2969 2971 2973 2976 2976 2985 87 2994 
3001 3011 3013 3017 066 3077 3084 $007 $105 3107 3115 
3133 3135 3145 3148 3150 3155 3174 3376 3180 3183 3185 3189 3199 
3201 3202 3203 3206 3223 3224 3226 322 3229 3234 3235 3241 3244 
3245 3248 3250 3253 3254 3256 3260 3263 3264 3271 3273 3281 32 
3386 3388 3390 3392 3397 3298 340 3405 3428 3430 3521 3523 
3525 3527 3533 3534 3538 3540 3559 3561 3566 3595 3597 3599 
3607 3608 3612 3614 3 5 3667 3670 3712 3714 3721 3723 
3724 3741 3743 3748 3767 3769 3770 3771 3776 3812 3814 3821 
7825 3846 3848 3852 3922 3923 3924 +334 3932 3934 3938 3974 3976 
3980 4011 4013 4015 4077 4023 4028 4032 40% 4039 4063 4065 4069 
4094 409 4099 4102 4104 4108 4150 4) 4185 4187 4189 4193 4194 
4197 4201 42 4207 4225 4226 4233 8 5 1 4249 4257 4279 428 
428 4283 428 4291 4292 4 4306 4319 4321 4322 4323 4326 4327 
4329 4330 4331 4334 4335 4336 4338 4339 4367 4 4405 4414 
4415 4416 4418 4419 4421 4425 4426 4433 4444 4445 4454 4456 4471 

$LSTIN= 000000 14 1154 1155 1157 1158 1167 116 1164 1165 1166 1167 1169 1170 
1177 1172 1173 1174 1175 1176 117 1178 1179 1180 1181 1182 1183 
1184 1196 1197 1199 1200 1201 120 1203 1204 1205 1206 1209 1210 
1212 1213 1217 1218 1219 1226 122 1228 1229 1230 1231 1232 1233 
1236 1237 1238 1239 1240 1241 1260 1261 1262 1263 1264 1269 44" 
1272 1273 1274 1283 1284 1285 1§ 1638 1289 1290 1299 1300 1302 
1303 1305 1a08 1307 1316 1317 1319 1320 1324 1325 1326 1345 1346 
1348 1349 1350 1359 1360 1361 1362 1364 1365 1366 1375 1376 1378 
1379 1381 1382 1383 1392 1393 1395 1396 1400 1401 140¢ 1427 1428 
1430 1431 1432 1441 1442 1443 1444 1446 1447 1448 145 1458 1460 
1461 1463 1464 1465 1474 1475 1477 1478 1482 1483 1484 1507 1508 
1509 1510 1511 1516 1517 1518 1519 1921 1386 1523 1532 1933 1535 
1536 1537 1538 1539 1548 1549 1550 1551 155 1554 1555 1974 1575 
1576 1577 1578 1584 1585 1587 1588 1589 1598 1599 1600 1601 1603 
1604 1605 1614 1615 1617 1618 1620 1621 1622 1631 1632 1634 1635 
1639 1640 1641 1660 +4617 1663 1664 1665 1674 1675 1676 1677 1679 
7680 1681 1690 1691 1693 1694 696 1697 1698 1706 1707 1710 1771 
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MAINDEC-27-CVDVA-B 


CVDVAC.P11 


SLSTST= 


177777 


23-AUG=78 15:13 


MACY11 30A(1052) 


23-AUG-78 


15:14 PAGE 
CROSS REFERENCE TABLE -- 
3698 3705 
3728 3729 
3764 3765 
3782 ‘3783 
3797 3798 
3819 3824 
3880 3882 
3900 3901 
3927 3928 
3969 3971 
4006 4007 
4026 4027 
4073 4076 
4092 4093 
4187 4188 
4206 4210 
4225 4226 
4253 4271 
4284 4285 
4301 4302 
4328 4329 
4360 4361 
4425 4427 
4443 4444 
4460 4461 
1217 1219 
1305 1307 
1383 1387 
1469 1482 
1553 1555 
1622 1626 
1702 1715 
1791 1793 
1869 1873 
2003 2011 
2115 2117 
2206 2212 
2302 2319 
2410 2412 
2489 2493 
2597 2614 
2728 2729 
2831 2835 
2928 2930 
2971 2973 
3017 3066 
3148 3150 
3206 3223 
3250 3252 
3386 3388 
3523 3525 
3599 3601 
3714 3721 
3814 3821 
3974 7976 
4065 4069 
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SEQ 0137 
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SLSTTA= 000000 


4823* 482748 
4801 
4804* 4816 





J11 
MAINDEC=ZZ-CVDVA-B = MACY11 = 30A(1052) 23-AUG-78 15:14 PAGE 142 
CVDVAC .P11 23-AUG-78 15:13 CROSS REFERENCE TABLE == USER SYMBOLS 


SMXCNT 014646 49524 
SNEST.= 177777 1 


SEQ 0139 


$NSKO = 000300 
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4557# 
45194 
45354 
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42254 42864 43234 
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$TAGNU= 000251 1 218 289 12904 1306 13074 
365 1 140 1447 
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$TESTN 001200 
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SSARGC= 000000 
$$BYTE= 000405 


$$DST = 000067 
$$FLAG= 000001 


$$FROM= 000000 


$$GET4= 000000 
$$LOC = 012332 


2 ; 1262 
13654 13824 
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15224 15544 
1622 1665 


$$LOCN= 000000 
$$R 000000 
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3761 37914 
iss 44274 
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$117 
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BOSS BRSES 
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ee 
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005200 2 
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.SASTA= weneee 1; 4782 
-$x = 007000 95 3a 





G12 
MAINDEC-727-CVDVA-8 MACY11 30A(1052) 23=AUG-78 15:14, PAGE 152 
CVDVAC P11 23-AUG=78 15:13 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0149 


- ABS. 015402 000 


ERRORS DETECTED: 0 


CVDV.BIN,CVDV.LST/CRE :SYM/SOi /NL : TOC=CVDVAC MAC, CVDVAC.SML,CVDVAC.P11 
RUN-TIME: 107 116 5 SECONDS 
RUN-TIME RATIO: 853/229=3,7 
CORE USED: 43m (85 PAGES) 





